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FIZIKA ÉS SZAMITASTECHNIKA 

Rezgések, Hőtan, Elektromosságtan 

A könyv a Fizika és számítástechnika — Mechanika foly¬ 
tatásaként, annak szellemében a gimnáziumok harmadik 
osztályának anyagát dolgozza fel. 

Ez a kötet a rezgő- és hullámmozgással lezárja a mecha¬ 
nika témakörét, és tárgyalja a hőtan, az elektrosztatika 
és az egyenáramok fejezeteit. 

Ebben a könyvben is jó néhány számítógépes program 
(demonstrációs, mérő, illetve feladatmegoldó) segíti az 
ismeretek elmélyítését. 

Ára: 149 Ft Megjelent: 1989 





EGYESÜLET 


MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK; Egyesületünk tagja lehet mindenki, 
aki a tagsági dijat befizeti. A tagdíjat személyesen az Egyesü¬ 
let irodájában (1133 Budapest, Kárpát u. 7/a. I. em. 11., tel; 
497-559), vagy átutalással az MNB 217-98292, OTP 565-3610-8 
számlára lehet befizetni. Megrendelés esetén számlát kül¬ 
dünk. 

Minden tagunk rendelkezésére áll POTYOGÖSZOLGÁLA- 
TUNK, a szervizkedvezmény és az apróhirdetési lehetőség. 

A Deákpáholy tagjai minden hónapban megkapják a C- 
újságot, a tagsági díj fél évre 366 forint. 

A Pluszpáholy tagjai minden hónapban megkapják a C- 
újságoL és minden hónapban 2x60 forint vásárlási utalványt 
is kapnak. A tagsági díj fél évre 911 forint. 

A Szuperpáholy tagjai havonta 15 példányt kapnak a C- 
újságból, és ezzel havonta 1800 forint vásárlási utalványt. 

A féléves tagsági díj 10000 forint. 

ÜGYFÉLFOGADÁS; minden kedden és csütörtökön 14—18 óra 
kozott várjuk tagjainkat és az érdeklődőket. 

POTYÖGÖSZOLGÁLAT ; Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető szemé¬ 
lyesen az Egyesület irodájában, vagy postai utánvéttel. 

A pötyogőszolgálat minden páros héten csütörtökön az 
egyesületi irodában működik, 16^19 óra között. 

APRÓHIRDETÉS; Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 80 forint. A hirdetés 


A kedvezmények a következő vidéki 
könyvesboltok 2C sarkaiban váithatók 
be. 

PÉCSi Zrínyi Miklós Könyvesbolt. 7621 Jókai u. 25. Tel.: 
72-12835 

DEBRECENI Szak- és ismeretterjesztő Könyváruház. 
4024 Hunyadi u. 8. Tel.: 52-23237 
SZOMBATHELY: Savaria Könyvesbolt. 9700 Mártírok te¬ 
re 1. Tel.: 94-12341 

VESZPRÉM: Kölcsey Ferenc Könyvesbolt. 8200 Cserhát 
út 7. 

BÉKÉSCSABA: Radnóti M. Könyvesbolt. 5600 Tanácsköz¬ 
társaság út 2. Tel.: 25-207 

QYÖR: Pattantyús A. Géza Szakkönyvesbolt. 9021 Molnár 
Ferenc u. 9. 

SZEDED: Tömörkény Könyvesbolt. 6720 Lenin krt. 48. 
Tel.: 62-21453 

SZOLNOK: Szigligeti Könyvesbolt. 5000 Ságvári krt. 35. 
Tel.: 56-11133 

MISKOLC: Chip-kuckó. 3530 Tanácsház tér 14. 


Az Országos Commodore Egyesület módszertani kiadványa. 

Egyesületi iroda és szerkesztőség: 1133 Budapest. Kárpát u 

7/al. em. 11. Tel.: 497-559 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter 

Felelős szerkesztő: Dr. Horváth András 

Művészeti szerkesztő: Szulyovszky József 

Egyesületi szervező: Winter Júlia 

Lapmenedzser: Kovács Gábor 

Levélcím: Commodore U|ság. 1388 Bp. 62. Pl. 86. 

Index: ISSN 0237-756 X 
T erjeszti a Magyar Posta. 

Megvásárolható a hírlapárusoknál. 

MSZH Nyomda 


rrródja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-újság régebbi sz^ai megvásárolhatók az Egyesület 
irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ári Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLüS/4. Cl28, C64. To¬ 
vábbi felvilágosítást is adunk a 497-559-es telefonszámon, 
vagy levélbenI 

Vidéki Pluszpáholy-tagjaink három havi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C áruház ingyenes 
csomagküldő szolgálatát. 

Vidéken további információk kaphatók: 

Jászberényi Városi Könyvtár 
Győri Bartók Béla Művelődési Ház 
Zalaegerszegi Ságvári Endre Gimnázium 
Pécsi Apáczai Csere János Gimnázium 

Budapesten havonta klubdélelőtt 
a Petőfi Csarnokban. 

Egyesületünk és az újság szerkesztősége 
várja az Önök programjait, hardver leírá¬ 
sait, cikkeit. Szerkesszük együtt az új¬ 
ságot! 


Tisztelt Szerkesztőség! 

Mindenekelőtt egy-két észrevétel a lappal kapcsolatban: 

A Pötyögőszolgálat listája sokkal használhatóbb lenne, ha 
géptípusok szerint lennének csoportosítva a programok, hiszen 
a más géppel rendelkezőket általában nem érdeklik a többi 
gépen futó programok, vagy ha mégis, akkor így is megtalál¬ 
nák azokat. Ezek mellett a nem gépfüggő (poke és sys nélküli) 
BASIC programokat is külön csoportokba sorolnám a verzió- 
számok szerint (2.0, 3.5, 7.0). Természetesen egy csoporton 
belül az eredeti sorszám szerint állnának a programok. Ezt 
a listát játszva elő lehetne állítani és folyamatosan karbantar¬ 
tani pl. a Multiplan (C—64) programmal—a lista végére beírva 
az új adatokat, utána a „sód" funkcióval a gép berendezi őket 
a saját helyükbe. 

A programlista „hosszabbítására” fel kellene használni az 
apróhirdetési űrlap jelenlegi helyét azt könnyen be lehetne 
szerkeszteni máshova. 

Kicsit „kiakadtam" a programot bevezető kis rajzocskán 
amely (az áprilisi számban például háromszor) azt ábrázolja 
amint két fiatal nagy érdeklődéssel dolgozik egy ZX-SPECT 
RUM számítógéppelIII Persze lehet hogy ami nekem cikis 
az másnap a manapság olyan divatos pluralizmus megnyil 

'"i’öváSíVjó munkát kivánoki 


Végül ide listázok egy rövidke rutint amely olyan progra¬ 
mokba építhető be, amelyek személyi szám inputtal dolgoz¬ 
nak. Ez az algoritmus nem a 13. (stb.) hónap és a 32. (stb.) nap 
„kiszűrésével" dolgozik, de azért elég hatásosan ellenőrzi a 
bevitt adat helye^gét. 


Q lv> RÉM SZEHE’LY ISZA'H ELL. 

15 INPUT "CI«@IÍP2EM. SZA’M":SZ* O 

ZU : 

OiS S»i»:J»(í 

jU FURI>lTŰie>J*J«l ^ 

35 S«>Mlb»lSZ«.J.1) 

IFS»«" "ÚRSt>"ir'THENJ>J«l iUŰTOób Q 

«5 S*S^VALiS*>»l 
q5i» NEXTI 

SS 1FVAL(R1ÜHT»ISZ».1) O 
INT((S/ll-iNr«S/ll)>*ll*.Oldl iTHENbb 
Qbií PRINT" üliliMaiELyTELEN !!!ff':ST(jP _ 

65 : O 

70 : 

O 75 PRINT"gí®ytENüBEN !" q 

Öó ENt) _ 


3 JUll-AUOUSZt. 
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Tisztelt Tagtársaim! 

Két éve írogatok C64-en, illetve PLUS/4-en, néhány trükköt 
és rutint szeretnék étadni, amit mások is használhatnak. 


’’GEN-GET-INPUT’ 64" 

Ez egy adatbeviteli rutin C64 re. A "gén" arra utal. hogy 
generálható a várható válasz, a "get-input" azt jelzi, hogy a 
karakterek bevitele ’get'-tei történik. 

A rutint egy adattekéró programrészlettel mutatom be. a 
személyi szám ellenőrző rutin (gosub10210) nem az én művem. 
Így jól működik. 

Futtatáskor az előirt helyre generálja a megadott sztringet 
és kijelöli a mező hosszát. Az első két mezőnél nem generál 
semmit a születési időnél egy dátumot generál, íráskor a szá¬ 
mok után álló pontokat átlépi. 

A személyi szám mezőnél az első számjegynek "1"-et a 
további hat számjegynek a születési időből kapott év, hó, nap 
karaktereket generálja. A mezőből csak helyes személyi szám¬ 
mal lehet kilépni. 

Ha a "Rendben van?" kérdésre Nemmel válaszolunk, elölről 
kezdődik az adatok bevitele, de minden mezőben megjelenik 
az előzőleg bevitt adat A hibátlan mezőket ’RETURN’-nel 
átléphetjük, a hibásat pedig javíthatjuk. 

Itt van jelentősége a generálásnak és olyan jellegű adatbevi¬ 
telnek, ahol sok hasonló adatot kell egymás után bevinni, ekkor 
az új tétel bevitelénél mindig generálhatjuk az előző tételt, és 
cs^ a változást kell beírni. 

Az adatmezőben jobbra, balra a kurzor billentyűkkel lehet 
mozogni (a kurzor-le is balra mozgat), a 'HOME' az első karak¬ 
terre viszi a kurzort a 'DEL' törli a mezőt A bevitelt 'RETURN'- 
nel bármikor befejezhetjük, de ha végiglrtuk a mezőt nem kell 
'RETURN'-özni. 


A működésről röviden; 

A rutin a 660—810-es sorokban található, meghívása 'GOSUB 
660'-nel vagy 'GOSUB 660'-nal történhet 660 esetén a kurzor 
aktuális hely^ kezdődik az adatmező (pl. kérdés után), 660-nál 
meg kell adni a sor (s) és az oszlop (o) számát is. 

^menő adatok: 
h: adatmező hossza 
i$: generálandó sztring 

nu—1: csak számjegyet és tizedespontot fogad el és valós szá¬ 
mot Ir ki 

zk—1: csak számjegyet fogad el (120) 
dt=1: ha dátumot kér be (100) 

Kijövő adatok: 

nr$; a mezőbe bevitt sztring 
n: a mezőbe bevitt valós szám 
A rutin által használt további változók; 
e$, g$, is$. nrr$, p$. r$, sp$, vi$ 
g, k, ok, q 

A rutin még további három rutint használ: 

GOSUB 660: a megadott sor, oszlop pozícióitól kiírja a$-t 
(PRINT AT) 

GOSUB 860; az n valós számból generálható nrS sztringet 
állít elő 

GOSUB 1250: villogtatja a keretet (pl. tiltott billentyű lenyomá¬ 
sakor) 

A működés lényege: 

675: képernyőre viszi az adatmezőt, ha i$< >”", akkor azt is gene¬ 
rálja. a 'kurzor' az első karakteren áll (fehér színű, ha van 
karakter) 

690: karakter bevitele (get g$) 

770: a bevitt karaktereket összefűzi (nr$) 

— ha kurzorral mozgunk, az átlépett karaktereket "hozzáadja", 
illetve "levonja" nr$-ből 

— RETURN-re az egész mező tartalma átmegy nr$-ba 
A rutin meghívására a 80—150 sorokban van példa. 

A továbbiakban minden PLUS/4-re vonatkozik. 


£ ♦ C» U JSHG SORSZRMHM m 

3 preti ♦ 0EH-eeT-it«-'uT'i&4 

r, 4 Rteti » PROrjRfrt* BflÜOHCS LftJOS ♦ 

^ 5 RÉM ♦)*4‘f****<*Hi*****i*#********»***»'*4‘** 

20 GOSU84000'PRINTP» 

30 ORTR HÉV,SZÜLETÉSI HELV,SZÜLETÉS1 lO«3,flHVJH HEVE,SZEMÉLY1 SZPM/LHKCIM 
O 35 POr- E53ÍS0 / 6 ■ POK E53281, 12 > PR IHT “ n" > S-Ö > 0-E ■ OOSUB550 ■ PR í HT " OEHERHLT GET-ES 
T RUTIH“ 

40 S»10'O-2>GŰ-SUB5S0'PP.1HT“ROHTB£KERO OEMOVfiL, ES SZEMELVI SZHM" 

O 45 S»l2>O-i0iGOSiJB550>PRIMT"eLLENORZO RUTIHHHL" 

47 S-lÖ'O-l3*OOSUe550>PRlMT"BP»GDrtCS LM JaS"SPC<;7l>“ IS89" 

48 S-23>O-30<GOSUB550'PRIMT“Sn SPHCE ■" 
rv 50 GETV»>IFV*»“"THEH 58 

^ 60 POR I-l TO 6-REHD H*<I>>MEXT l 
70 PR. I HT " TTI" < GOSUB 10160 
_ 80 S-3'O«20>H-18* I»-6»<.1> ■GOSUe660'e»<l)-=MR.» 

O 90 S-6 • 0-20 >H-18 • I»»B»<;2> >150806660 >e»<Z)»HR.» 

100 S-S"O-20>H-11 'OT-l • I»-e#<:3> >00800660'e»C3>-HR.» 

105 B*C7>-M10*<.e*<3> , 3, 2>-»-MlÜ»í.e»<3> , 6,2>-*-MlŰ»<6*<3> . 9,2> 

O 110 S-12>H-184I»-B»<4>■GOSUB660>6»C4)=HR» 

^ 115 B»<8>-LEFT*<;B»<5z, 1> > 1FBSC5>-“"THEM8»<8>-"1" 

118 l»-B»C8>+e»r.7>-*-RlGHT»<B»<;5>,4> 

^ 120 S-15>H-11 >Zl‘-l >i5i3Sl3©660>B»C5>-HR.» 

O 130 IF B»<7>OMIO»<e»<5>,2,6> THEHe»C5>-"“ >GOTOlOU 
140 GOSIJB 10210>IF Ml-1 THEH Hl-0 > IT-HR* > GOTO 128 
150 S-18>0-11 >H-28> I*=B»C6> >GrjSOe660>e»<.6>-MR* 

O 180 S-22>0-8>H»-"R.EH0BEH VftH R»'. l/N>« ?“ >GOS'JB550 
190 GETV»>lFV*-“"THEH190 
200 IF V*="H“THEM 70 
n 210 IP V»0“l"THEH GOStje2150>GÜTOl90 
^ 240 EHO 

550 P0K.E2l4,S>PtDt>£2ll,0>SVS58732>PRlHTP*; >H»»"“ >RETUR.H 

^ 649 RÉM "GEH-GET 0-PíJZ rrELK.'JL" 

650 S-PEEK.<214) >0-PEEl!;<.211>+2'0»l 
658 > 

o 


o 

o 

IHPO O 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 
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o 

o 
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o 
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659 RÉM "tiEM-iBET «-P02lCIOHrtl_ftS6rtL“ 

660 !<SR» = " “ 

665 ■ I6»-t_EFT»<;SP»,H> =(=W»“«a“-^lSí+"«“ M3OSUB550 

670 Rí - a»" . Fi3RH> 1 TOK ■ OH -. 

675 Kí-KR.í vR.Í+KlOsr< lí, K, 1 >-*-Pí+niOí< 1», K+1 >+R*+p».. GOStJB550 

6S0 IFDT=IKHD'3K = . ThEMXFk;=5i>'X=SORK.* 1 ITHEUGí*"*!" ■ 6i3TO730 

690 GETOfIFOS=““THEH690 

692 IFOí-CKRíC34>THEMOOSUB2150 > GOTO690 

695 G»PSC<G»> 

700 IF0=1 3THEHKí»MI0í< !♦/»<.> • K.-H ■ GOTO7tí0 

720 lF0T«.Ftt‘40G»=32THEMG»»" "'00X0770 

730 IFaí-^-'lfTHEHVIÍ^Gí'GÍ-MIDÍCIÍ/K. 1> '0010770 

740 IFK.>1THEKIF0»*“II‘'W:Gí*="«“ THEN3Í*"" ' HP»*LEFTí <KR», K.-l ) 'OK*! 'G0T0675 

750 IFG»19THENNR»=*“" ' ft»«=LEFT»<SPí / H> ' GO3UB550 ' GOTO660 

755 IFOT*. P^CP<6-140ORG-20>THEUFlRí-“ " . i*«. Ftí-LEF 1 »í.SPí, H> ■ GOSOB550 'GOTO660 

760 IFmj-'lOROT = lTHENtF<;Gí '.:“0"ORG»>"9“ íRKOGíO" . "THENGOStJ62l50 ■ GOTO690 

762 IFZt<>lTHENíF<Oí<-‘0“iDRGí>“9" >THEKGi3StJB2150'I3OTO690 

765 IFHO-. THENIFO<320R<.G> 127HMÜG<.160 >THEHOOBU82150 ' GOTO690 

770 MRí*MF.í+0í' X f«KRí-K*llÜ!rV lí/K+l > 

778 IFVlt»''»l'‘F>KOK>EEHí.KRí+Mí >THEK»'.»K-1 ' Vlí»" " 

780 NEXTK.' HR»-=NRí+t1» ' N»VFlL'.C«R» > • Eí'«^^Rí 

790 IFQ-1TKE^<H»»•■ “ ' GO6OB550 

792 irmj-.rHEK800 

795 Oí-18»'ÜO6OB550' <>3608860 

800 RÉM NR»»LEFTí«.NRT-fSP»,H> 

802 REM'R 800-B8 OOP. RELPTIV Fll_E-«rtL KELL t-'H" H08SZ1G SPR<:E'-SZEL FELTOLTVE) 

805 PRINTP»'fi»»LEFlí<:KRí+8Pí,H) "30806550 .''"j!*. ' I»=““ .. 'H-. 

810 ZK.». 'OT*. 'OK*. 'PI3KE198/ , ' RETuRN 
860 NR»»MID»<STR»<;n> , 2> ' RETORM 

2150 C0»PEEK<.C4) • FÜRI*. T032' P0KEC4/ 1 'NEXTl ' Pi3»<Ei;4, 1 : 0 ' RETURN 
4000 SP**“”'Fi3Rl-lT038'8Pí-8P»-t-“ " ' NEXT1 ' Pí-"«" 

4010 C4»53280'B»<;3)»“1910.01.01. “ 'RETURN 
10160 RÉM 4*4 KEPERNVO NFtSZK K11RB8 *** 

10170 PR INT “TI"'0*2 

10180 FÓR 8*3 TO lv3 STEP 3 

10190 GI3SUB 550'PRINT Kin;873> 

10200 NEXT 8'RETURN 

10210 RÉM *82EMELVI8Zl^M SZKM VlZSíjFtLO* 

10220 H1-0'8C0>=0 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 


o 


o 


10230 

10240 

10250 

10260 

10270 

10200 

10290 

10300 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

104W30 

10410 

10420 

10-3.30 

1I3A40 

10450 

KEF ;'JV . 


8í*eí<.5) 

IF LEN<;8í)011 THEN 10450 
Sl-VFtL<LLFTí<8», 1 ) ) 

S2»VFiL <■ MI Űí C8í / 2 / 2 ) > 

83“VfiL < M10» < 8»/4,2)> 

84- VRL < MIü» < 8í,6,2)> 

85- VRL<.R10HTÍ<;Sí» l> ) 

IF 8l!:i i3R 81 >2 THEN 10450 
IF 83>12 OP. 83':l THEN 10450 
IF S4>31 OR 84<.l THEN 10450 

IF 84>30 HNO <;S3=4 '3P. 83=6 i3R 83=9 <3R 83=11) THEN 10450 
IF 84329 HNO 83=2 THEN 10450 
FÓR 1=1 TO 10 
8<l)=VKL<;MI0t<.8*/ I, 1)> 

8<0)=S<0)+8<1)*L 
NEXT I 
SX=8<;0)711 
E=S<:0)-8X*11 
IP t*10 THEN E»0 
IF E<385 THEN 10450 
RETURN 
HI=1'RETURN 


O 

O 

O 

o 


"HUNIBÓL SORSZÁM" 

A C—16 (PLUS/4) TEDMON programja segítségével, ha 
MONITOR-ba lépünk, a H (hunt) parancsra a g^ megkeresi a 
kívánt karakterek vagy byte-ok összes előfordulási helyét a tár¬ 
ban. Pontosabban megadja a kezdőcímeket hexadecimális 
alakban. 

Ez a rutin megmondja, hogy a hexa. cím, amit a H parancsra 
kaptunk, melyik BASIC sorban található. Ez főleg hosszú prog¬ 
ramoknál jelenthet segítséget. A rutint célszerű a program 
végéhez fűzni, így GOTO 9(X)0 rel bármikor használhatjuk. 

Használata; 

GOTO 9000 vagy önállóan RUN hatására programozza, majd 
kiírja a funkcióbillentyűk tartalmát és leáll a 9040-es sorban. 

—’F 1'-re MONITOR-ba lépünk, kiírja a >2b sort és felírja a 
HUNT parancsot. Itt a keresendő terület határait a 2b—2e cí¬ 
meknek megfelelően (fordított sorrendben) átírhatjuk pl. ha 
csak a rutin van a tárban: H 1001 1218' 


Ha karaktereket sorszámot vagy változót keresünk, azt 

(aposztróf—SHIFT-F7) után kell írni. A BASIC alapszavakat 
hexa alakban kell megadni aposztróf nélkül. 

Egy trükk; keressük az SCNCLR-t de nem tudjuk a hexa. 
alakját írjuk be: 0 SCNCLR (RETURN),’F l’-el menjünk át 
MONITOR-ba és írjuk be: >1006 (RETURN), ezt látjuk: 1006 e8 
00.az e8 az SCNCLR hexa. alakja a tárban. 

Most már írhatjuk: h 1001 1218 e8 (RETURN), a keresés ered¬ 
ménye: 1006 lOal 

— ’F 2’-vel visszatérünk BASIC-be és ablakot készítünk. 

—’F 3’-mal indul a sorszámkeresés, a hexa. címet úgy kell 
megadni, ahogy a H után kaptuk, pl. 1006. A keresés eredménye: 
LIST 0 (ezt most Irtuk be). 

—’F 3’-mal folytathatjuk a keresést $10a1-re LIST 9040-et 
kapunk. 

FIGYELEMI Keresés közben ne változtassunk a BASIC sorok 
hosszán, mert eltolódnak a címek a tárban. 

— ’F 4' törli az ablakot és a képernyőt a keresés végén. 

A rutin működése: 

A 9040 sorig a funkcióbillentyűket programozza, a 9060—9075 
sorok vizsgálják és jelzik, ha a dm a BASIC területén kívül esik. 
(Ekkor vad sorszámokat kapnánk.) A 9060-as sor a megadott 
címtől visszafelé haladva '00' byte-ot keres, ami a BASIC sor 
végét jelzi, ha az utána következő két byte által mutatott cím 
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előtt is '00' byte áll (9090). A sorszámot az igazi '00' byte utáni 
3. és 4. byte adja (9090). Hamis 'OO" byte-okat adnak pl. a 257-nél 
kisebb ^SlC sorszámok. 


Ha a BASIC terület felsó határa $8000 felett van, ki kell adni 
egy POKE 2040,128 parancsot, ekkor MONITOR-ból elérjük a 
$8000 feletti RAM-ot. 


O 

O 

O 

O 

O 


9000 
9010 
9020 
90 30 
9040 
9050 
9060 
9070 

I “ 

9075 

9060 

9090 

9100 

9110 

9120 


RÉM "HUNTBOU SORSZHM" ^ 

K.EVl,"Mr“-*-CHR.»<;i3> + “n>2B“ + CHR»<;i3>-*-"*H 1001 4000 

K.EV2» ••X“+CHR*<13>+CHR»<27>+“T"+CHR»C13> ^ 

KEV3,CHR.#<19>+CHR*<l3> + “Gr9050"+CHR»<V3> 'KiVe/ “««:r O 

SCMCLR'K.EV>PRIMT"W FI, F2, F3, HELP"'STOP 
POKE19/1■lMPUT“n« KEREM R HEXfl CÍMET•,R»■PRINT 

POK.E19, . ■ I-OECCR»> ■RC-256*PEEK<44>-*-PEEK<43>+l •FC»256*PEEK<46>+PEEK<45)-4 O 

IF1>FC0RI<RCTHEHPR.IHT“)« ♦ CIM* Wi»"HEX*<:RC>"■ ES fcjr"HEX»<FC>"■ KOZOTT LEHET 


IFI>FCTHEMPRlHT“ia Ml SPRCE ^■ iJETKEVV* • OOTO9050 
FOR.J-ITOI-30OSTEP-1 ■P-PEEK<..J> • IFPTHE1*4EXT.J 
CI»256*PEEKC J+2>+PEEK< J+l> • IFPEEK<CI-1 >THEHNEXT.J 
SZ»256*PEEK<;j+4>-t-PEEK<J*3> <PR.IMT"W« LIST"SZ 
PR I NT " «M_ IST " SZ‘Vm" 
lENO 


O 


o 




"SZÍNBEÁLLÍTÁS" 

A menü '1' pontja inkább szinbemutató vagy szintervezö 
lehetne. Itt a gép bekapcsolási színével kezdve minden szín és 
árnyalat beállítható, és ugyanakkor leolvasható a hozzátartozó 
COLOR illetve POKE számérték. 


A POKE 1339 után álló számértéket kell adni a színtér POKE 
2048—3047,x formájú szinmegadás 'x' értékének (villogtatva 
x+128at). 

A '2* pont egy rutin, mely progrannon belüli színbeállításra al¬ 
kalmas. A 22. sor adja az induló szint és GOSUB 6000-rel hívható 
a rutin, ami a 6170-es sorig tart. A beállított szinértékeket a 220 
és 224 tárcímen tárolja, így újabb RUN esetén is a beállított 
színnel indul a program. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 
o 
o 
: o 


1 RÉM 

2 FE;M 4 C«= IJJSRG SOR.3ZRM-169 4 

3 RÉM 4 SZINBERLLITO PLUS/4 4 

4 RÉM 4 PROGRHM- BRfiORCS LAJOS 4 

5 RÉM 4444444444444444444444444444444444 

15 PEIM 1001 1830 
20 PRINTCHR»C14>-VOLe 

22 IFPEEK<224>-.THEN COLOR4,1•CtDLOR./2.3>POKE224,PEEK<65305)•POKE220,PEEK<65301> 

25 SCNCLR'PR.INTSPC<12>“«N« SZH-íBERLLlTRS" 

26 PRINTSPC<13)"- 

28 PiX.E1339» 1 •PRlNTSPC<:i2>"« BRiíDHCS LRJOS"SPC<.71 >" 1989«" <PO»<E205. 10■ PRINT 
30 PR1NTTRB<6>“# 1 • MINDEN SZIN BEÁLLÍTHATÓ" 

40 PRINTTAB<6)"«W# 2 • PROORAMON BEUJL AZ ADOTT" 

45 PR.INTTAB<11>“»<AR.AK.TERSZINEKHEZ KERESHET0"SPC<53>“A KERET ES A HÁTTÉR SZÍNE" 
50 PRINTTAB<6)“««a 3 • VEOE" 

60 OETKEVV**IFV»<"l"ORV»>"3"THENSOtJN03/999,10<GOTO6O 
70 ONVAL<V»>GOSiJB 80,90,100 
80 OOS4J87000 

82 PRINT"^ A POKE 2048-3047,X SZINRAM X ERTEKENEK « IS A POKE 1339 UTÁN ALLO"; 

84 PR INT" ÉRTÉKÉT KELL « AOt-tl. " ■ i3ETKEVV» • GOT025 
90 OOSUB6000 ■ OOT025 
100 ENO 

6000 RÉM SZINBERLLITO SZ'JBR.UTIN PRO-BAN 

6020 SCNCLR.'PR.INTSPC<11 >"431.1 SZINBEALLlTAS*" ■ PRINT"«« A PROijRAMBAN A KÉPERNYŐN" 

60.30 PRINT" LATHATO KK.AR.AK.TERSZINEK FOP.Ü<JLNAK. ELŐ," 

6040 PRINT"*! MOST BEÁLLÍTHATOD KEDVEt*; SZÍNEIDET'" 

6050 POK.E 1339, 1'PRINT"«*! SIS KERET SZÍN a 2 ■ KERET TÓNUS" 

6060 PRINT"*! a 3 ■ HÁTTÉR SZÍN a 4 » HÁTTÉR TÓNUS" , 

6070 PRINT"*! a 5 • EREDETI SZÍN 86" KÉSZ" 

6060 1-1'J-.'K«2'T»3'PRINT"«" 

6090 P0KE239, . ' OETKEVOl* ' 0-VAL<.Gl» > ' IFG<10R.G>6THENSOUND3,912, 10 ■ GOTO6090 

6100 IFO-6THENPOKE220, PEEK<65301 > ' POKE224, PEEK<65305> ' R.ETIJRN 

6110 IF0-5THENPIX E65301. PEEK.<220 > ' PtX.E65.305 , PEEK<224 > ' GOTO6090 

6120 IFG-lTHENl«I-f 1 ' IF1-17THENI-1 

6130 IFG-2THEN.J-.J-H ' 1FJ-8THENJ-. 

6140 IFG-3THENK-K-*! ' IFK-17THE1«:-1 
6150 IFG>*4THENT-T-fl ' 1FT-8THENT-. 

6160 C0L0R4,I,J 

6170 COLOR.,K,T>GOTO6090 

7000 1-15'J-6'K-2'T-7'M-1'N-1'RÉM BEKAPCSOLÁSI SZÍNEK 

7090 POK.E239,.'GOSUB8010'GETKEVGl*'G-VAL<Glí>'IFG<10RG>8THENS0UN03,912,10'GOTO70 
90 

7100 IFG-7THEH7000 
7105 IFG-STHENRETURN 
7120 IFG-lTHENl-l+l'IF1-17THEN1-1 
7130 IFG-2THEN 1' IFJ-eiHEN.!-. 

7140 IFG-3THENK.-K-»^1 ' lFK-17THENK.-1 
7150 IFG-4THENT-T-*-l' IFT-STHENT-. 

7160 IFG-5THENM»M->1 ' 1FM-17THENM-1 
7170 IFG-6THENN-N-» 1 ' IFN-8THENN-. 

7190 OOTO7090 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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7900 RETURU O 

O 6000 PRIMT" -"•RETURN 

^ 8010 C0L0R4, I, J>COUJR0,K/T'CiX.ORl.M,N>SCNCLR‘PRlNTTR8<:i3)"llE2If4e£PLLITRS*" 

8015 i3OSUe8000>PRIMT" S 1 9 KEKET SZÍN -.••OinCOLOR 4 O 

^ 8020 PRINT"* 929 KERET TÓNUS -• POKE 65305 ,"PEEK<65305>‘OOSUB8000 

O 8030 PRINT-W 9 3 9 HRTTER SZÍN -ilWin COUJR 0 ,“K","T 

8040 PR1NT“» 949 HRTTER TÓNUS -• POKE 65301 ."PEEK<65301)■OOSUB8000 _ 

8050 PRINT-W 9 5 9 BETŰ SZÍN COL.OR l , , "N O 

O 8060 PRINT"* 9 6 9 BETŰ TÓNUS -• P«3KE 1339 , "PEEKC 1339> • O<DSUB00O0 

8070 PP.INT" 9 7 9 9 BEK.I=»PCSOLRS 1 SZÍN 9“SPC<56)“9 8 9 9 KÉSZ 9 " 'GOSUBaOBB 

8080 PRINT-W FICVELD fi SZfiMERTEKEK VflLTOZfiSfiT Ml T §■“'RETURN Q 


O 



Még néhány apróság PLUS/4-re: 

— POKE 1351,128-cal letilthatjuk a SHIFT+C billentyűket, 
vagyis a nagybetű—kisbetű váltást. Ez hasznos lehet pl. ékeze¬ 
tes karakterkészlet használatánál. 

— a funkcióbillentyűk tartalmát MONITOR-ból elmenthetjük 
S"key",1,55f,5e7 paranccsal, és ’L' paranccsal akkor is vissza 
tudjuk tölteni, ha program van a tárban. Ha LOAD"key",1,1 
paranccsal töltjük be. úgy töltés után a NEW parancsot is ki kell 
adni. 

— memóriatakarékosságot jelent, ha hosszú BASIC sorokat 
írunk, főleg ha pl. TURBOBASIC-kel hatsorosakat Van egy 
egyszerű trükk a rövid sorok összetűzésére. 

Példa; 10 print „ez egy rövid sor” 

20 print „ez is rövid..." 

a) LIST 20 (RETURN) 

b) töröljük le a 20-as számot Írjunk a PRINT elé kettőspontot 
és húzzuk balra 'DEL'-lel a képernyő széléig a kettőspontot 

c) a LIST 20 feliratot javítsuk LIST 10-re 

d) nyomjuk meg az 'ESC. majd az 'A' billentyűket aztán a 
•RETURN'-t 


e) vigyük a kurzort az egybeírt sorra és ‘RETURN’ 

0 toröljük a 20-as sort és ’ESC'-f’C’-vel a beszúrásos üzem¬ 
módot (leírni hosszabb, mint megcsinálni). 

Mostanoban sokat dolgoztam hosszú ékezetes (fOOO—f7(X)) 
programmal TURBOBASIC alatt. A sok jó mellett voltak kelle¬ 
metlenségeim is, aminek nem tudom az okát: 

— mindig ,7-tel mentettem, és gyakori volt a VERIFY ERROR. 
ami többszöri próbálkozás, esetleg magnófejtisztitás (na¬ 
ponta többszöri) után OK lett; 

— olykor-olykor a legkulonbozQbb helyeken szames lett a 
program, először a DELETE parancsra gyanakodtam, de ha 
nem használtam, akkor is előfordult; 

— egyszer úgy futottam ki a memóriából, hogy az új program¬ 
sor nem fért el (a változók is éltek), és lemerevedett a gép, 
ki kellett kapcsolni. 

Ha a fentiekre tudnak magyarázatot, vagy netán van egy 
újabb TURBOBASIC, szíveskedjenek értesítem. Az én TURBO- 
BASIC-em a C—-ben megjelent javított változat a PÖTYOGÖ- 
SZOLGÁLAT-tól. 

Bagdács Lajos 


Nagyító C -f-4 


Várkonyi István tatabányai tagtársunk átírta C~f^4-re a C- 
újság 1987/10-es számában megjelent NAGYÍTÓ programot. 
A használatáról ott leírtakat nem kívánjuk megismételni. 

Két megjegyzés a C -t-4-es változathoz: 

1. A program magnóról csak a normál módon kimentett ké¬ 
peket tudja beolvasni. Ezért a TEDPAINT-tal készült vagy 
TURBO-val kimentett képeket nem tudja beolvasni. 


2. A program lemezről be tudja hívni a BOTTICELLI-vel, a 
TEDPAINT-tal, továbbá a C64-es rajzolóprogramokkal készült 
képeket is, de ebben az esetben a 8k-nyi bíttérképes területhez 
hozzá kell fűzni még 2k-nyi területet Az összetűzést úgy kell 
megcsinálni, mintha a kép C16-os vagy C-l-4-es gépen készült 
volna (először a 2k-nyí akármi majd a 8k-nyi képinformáció). 
Ezt azért lehet megtenni, mivel a program csak arra használja 
a színekre és a fényességbe vonatkozó adatokat hogy a kép¬ 
pontok a $2000—$3FFF közötti helyre kerüljenek a tárban. 


o 

0 REH 

1 RÉM ♦ C= UJSftG SORSZftM'ITO * 

2 RÉM ♦ NFIGVITO C-*-4 ♦ 

O 

o 

3 RÉM * PROGRftM'VFtRKONVI ISTVÁN ♦ 

4 RÉM ♦ CNAGV BÁLINT UTÁN) * 

5 RÉM ««««««««««««««««««-«««««««««««««*« 

o 

o 

10 IF XO0 THEN 50 

20 SVSDEC<"C63C") 

30 X=1'PRINT’TKIS TÜRELMET..." 

O 

o 

40 GOSUB 1100 

50 COLOR 0,1'COLOR 4,1 

60 PS-0 

o 

o 

70 HS-0 

80 print":e"; 

90 X-10<V*5'GOSUB 940'PRINT" , _ , “ 

o 

o 

100 X-^lOsVaS'GOSUB 940'PRINT"1. K.EP BETÖLTÉS" 

110 X»10<V=7'GOSUB 940'PRINT" 

120 X'-IO'V-S'GOSUB 940>PRINT"2. KÉP NYOMTÁTÁS" 

o 

o 

130 X-IO'V-S'GOSUB 940'PRINT" 

140 X»10'V-10'GOSUB 940'F>RINT"3. KÉP BEKAPCSOLaS" 

150 X-10'V'=12'GiDSUB 940'PRINT"4. DIRECTORV" 

160 X'»10'V'»13'GOSUB 940'PRINT" 

o 


o 

o 

170 X-10'V«=14'GOSUB 940'F>RINT"5. KILÉPÉS A PROGRAMBÓL" 

180 X'=14íY»16'GOSUB 940'PRINT" ," 



190 X»14'V-17'GOSUB 940'PRINT"VÁLASSZ t" 

o 

o 

200 GETKEV A» 

210 IF A*»"l" THEN 740'RÉM KÉP BETÖLTÉS 


o 

220 IF A*-"2" THEN 340'RÉM KÉP NYOMTÁTÁS 

o 
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Cf 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


240 

2í>0 

2 <S 0 

270 

2:30 

230 

300 

310 

320 

3.30 

340 

350 

3iS0 

370 

3 S 0 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

Ö 80 

890 

:* 0 O 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


IF fi*="3“ THEN 960-RÉM 
IF Fl$»“4" THEN 270«RÉM 
IF fi»=”5" THEN END'REM 

RÉM ««««»««««*««««««« 

RÉM ♦♦♦ DIRECTORV ♦♦♦ 

RÉM »«««««««««««»«««» 

PRINT"^" 

SYSDEC«;"11D0"> 

0ETKEV fi* 

GiDTO 50 

RÉM »«««««««««««*«««««««« 

RÉM ♦♦♦ KÉP NVOMTHTRS 

rém «*««««»«««««««««««««« 

PRINT”n"CHR*<14+128>; 
PRINT"« 

PRINT-51 
PRINT-^ 

PRINT"« 

PRINT-Í 
PR.INT“a 
PRINT-^ 

PRINT"« •- 

X*20•V-0 > GOSÜB 
Xc20>V-l‘OOSUB 


KÉP BEKfiPCSOLfiS 
DIRECTORV 

KILÉPÉS fi PROGRfit^OL 


F 


1 I 

I I 
I 

.x 


-iSK " 
ini “ 
isiiav* 
irai “ 
lai " 
'SH^ 


x= 3 ■V-l 1 < G 0 SU 8 
X» 3 «V= 12 *GOSUB 
X= 0 >V* 13 'GOSUB 
X =0 !V *14 >Gosue 
X«0:V«15>00806 
X» 3 <V- 16 > 00 SUe 
X= 3 >V» 17 >OOSUB 
X« 3 -V= 19 'OOSUB 
X =22 > V =4 : IjOSUB 
X »22 > V =5 > OOSUB 


940'PRINT"S , , 

940>PRINT"MEKKORfi NfiOVITftST" 

X=20>V>2>OOSUB 940<PRINT“fiKfiRS2 ?“ 

X»20>V>4<OOSUB 940<PRINT"X-? 1“>REM NX 
X*:20■ V=5 • OOSUB 940>PR1NT"V»? 1">REM NV 
X»1>V>9>00SUB 940«PRINT" , , 

X«1>V»10<OOSUB 940>PRINT"VIOVfiZ2 ! 2 X 2 -NEL NfiOVOBB NftOVITfiST“ 
940>PRINT“ 

940>PRINT"CSfiK SZfiLfiOPfiPIRRfi TUDOK CSINfiLNl !“ 

940>PRINT"83- 

940<PRINT“S 

940'PRINT“HfiNV PONT LEOVEN EOV SORBfiN ?" 

940>PRINT" , 

940>PRINT"<OEPPfiPIR-SZELESSEO KB. 400 PONT.)" 

940>PRINT"MENNYI LEGYEN ? 400“>REM SZ 
940<INPUT"a";NX 
940> INP»JT NV 

X=17>V=19>OOSUB 940>INPUT SZ 
POKEDECC"12Efi“>,NV > P0KEDEC<"12EB"), 

S-SZ/NY•IF S>200 THEN 3>2O0 
POKEDEC<"12EC">,S 

X«0>Y>21>OOSUB 940>PRINT", , , , 

X-0>Y-22■ OOSUB 940<PRINT"fiLLITSO BE fi NVOMTfiTOT ES NYOMJ l■SPfiCET!«•• 
GETKEV fi*>IF fi*0" " THEN 680 
OOSUB 1020 

SVSOECC"1070">>RÉM NflOVITftS 
OOSL« 1070 
GOTO 50 

RÉM ««««»«»««««««»«*«««» 

RÉM ♦♦♦ KÉP BETÖLTÉS *4* 

RÉM *«««««««««««««««*««« 

X»5>Y-21'OOSUB 940'INPUT"MELYIK RfiJZOT 
N**LEFT*<N*,16)'IFLEN<N*>-0 THEN 50 

FÓR I«1 TO LENCN*)'P0KEDEC<"1208")+I,fiSCCMI0*CN*,I, 


>NX 


:n« 


X« 9 ' Y» 23 ' OOSUB 940 ■ PR.INT"IFii_ 0 PPY VfiOV MKafiZETTfi 7 " 
GETKEV fi* 

IF fi*="K" THEN EG-l'OOTO 860 
IF fi*-"F" THEN EG» 8 'OOTO 840 
OOTO 800 
OOSUB 1020 
OOSUB 1040 

POKEDECC"D 8 "),LENCN*)> POKEDECC"DS"),EG 

SYSDEC C" 1180 ")'RÉM KÉP BETÖLTÉS 

IF E 0»1 THEN 960 

OOSUB 1070 

GOTO 50 

RÉM 

RÉM ♦♦♦ KURZOR POZICIONfiLftS ♦♦♦ 

RÉM « 4 «* 4 i*>(i********«*« 44 « 4 >***** 

POKE 202 ,X'POKE 205 ,V * SVS 55464 > RETURN 
RÉM «*******«*»***«*«**«*** 

RÉM :♦♦♦ KÉP BEKfiPCSOLfiS ♦♦♦ 

RÉM i*********************** 

OOSUB 1020 
GETKEV fi* 

OOSUB 1070 
OOTO 50 

SVSDECC" 1270 ")'RÉM BITTERKEPES ÜZEMMÓD BEKfiPCSOLfiSfi 
RETURN 

POKEDECC"D 8 "),PS'POKEDECC"D 9 "),HS 
SVSDECC" 1298 ")'RÉM SZINMEMORIfi TORLESE 
RETURN 


1 ))'NEXT 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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O 1070 
1080 
10-?O 
O 1100 
1110 
1120 
O 1130 
1140 
1150 
O 1180 
1170 
1180 
O 1190 
1200 
1210 
O 1220 

1230 
1240 
O 12^0 
^ 1260 
1270 
O 1280 
^ 1290 
1 300 
O 1310 
^ 1320 
1330 
O 1340 
1350 
1360 

^ 1380 
1390 
^ 1400 
O 1410 
1420 
_ 1430 
O 1440 
1450 
_ 1460 
O 1470 
1480 

^ 1500 
1510 
1520 
^ 1530 
1540 
„ 1550 
O 1560 
1570 
„ 1580 
O 1590 
1600 
r. 

1620 
1630 
_ 1640 
O 1650 
1660 
_ 1670 
O 1680 
1690 
1700 
O 1710 
1720 
1730 
O 1740 
1750 
1760 
O 1770 
1780 
1790 
O 1800 
1810 
1820 
O 1830 
1840 
1850 

O 1860 

1870 
1880 
1890 
1900 


SORBRM ' M"> END 


DRTfi 

DRTR 

ORTR 


O 


SVSDEC<:"12C0"> :REM BITTERKEPES ÜZEMMÓD KIKRPCSOLR: 

RETURN 

RÉM 

RÉM RS8.RUTINOK BEOLVRSRSR «•« 

RÉM 

PRINT"ELLENŐRZÉS INDUL!" 

FÓR I=B TO 88:C=0 
FÓR B»0 TO 7 
RERD R» 

C*C4-DECCR*> 

NEXT 

RERD 

IF DEC<R»>OC THEN PRINT"RDRTHIBR R"I". 

NEXT 

PRINT"ELLENŐRZÉS KÉSZ!" 

PRINT“BEIRRS INOUL!" 

RESTORE 
FÓR 1=0 TO 88 
FÓR B=0 TO 7 
RERD R^ 

Pi3»:E 4112+I#8+B,DECCR*>. 

NEXT 
RERD R* 

NEXT 

PRINT"0K!" 

RETURN 

DRTR RD/F8/12/29/FS/85/D8/RD>04E2 
DRTR F7/12/29/07/05/D8/85/D8/0373 
DRTR RD/F7/12/29/F8/48/0R/0R/0333 
DRTR 0R/18/65/D8/85/D8/R9/20/0385 
DRTR 60/F9/12/85/09/68/4R/4R/0302 
DRTR 4R/48/65/D9/85/D9/68/4R/03E0 
4R,18/65/O9/85/D9/RD/F8/04R3 
12/29/07/RR/BD/5B/10/R0/02B4 
00/31/O8/D0/03/R9/00/60/02E5 
DRTR 4C/51/12/80/40/20/10/08/01R7 
DRTR 04/02/01/01/02/04,08/10,0026 
DRTR 20/40,80/00,00,00,00,00,00EO 
DRTR R9/30/8D/E9/12,R9,OO,8D,0397 
DRTR F5/12/8D/F6/12,80/EE/12,0429 
DRTR 80,EF,12,R9/C7,80,F4,12,0491 
DRTR 8D,F1,12,R9,80/8D/ED/12,0445 
DRTR R2/04/R9/04,R0,00,20,BR,02CD 
DRTR FF/R9,00,20,BD,FF/20/C0/0464 
DRTR FF/R2,04/20/C9/FF/R9/0F/0445 
DRTR 20/D2/FF,RD/E9/12/20/D2/048B 
DRTR FF/fl9/0D/20,02,FF/R9,08,0457 
DRTR 20/D2/FF,R9,0D/20/D2/FF/0498 
DRTR R9/00/8O/F8/12,89/00/80,0376 
DRTR F9,12,RD/F1,12/80/F4,12/044E 
DRTR SD,F7,12,38/ED/EC/12/B0,0469 
DRTR 02/R9/FF,8O/Fl/12/RD,EF,04O6 
DRTR 12/8D,F0/12,20,10,10,F0,02D1 
ORTR 06/RE/EE/12/B0/63/10/0D/02F1 
DRTR ED,12/8D/ED/12/EE/F0,12/047B 
DRTR RO/F0/12/CD,EB,12/D0,12/045B 
DRTR EE,F8,12,RD,F8/12,09,00,0478 
DRTR O0,03/EE/F9,12/R9/00/8D/0402 
DRTR F0,12,EE/EE,12,RD/EE,12/0490 
DRTR C9/07,D0/C8/R9/00,8O/EE/048C 
DRTR 12/RE,ER,12,RD,ED,12,20/0388 
DRTR D2/FF,Cfl,D0/F7,R9/80/8D/0618 
DRTR ED,12,CE,F7/12,RD,F7/12,048C 
DRTR CD,FI,12/F0,15,R0/F5,12,0489 
DRTR 80/F8/12/RD,F6/12,80,F9/0402 
DRTR 12,RO/EF,12/80,F0,12/4C,039B 
DRTR E4,10,RO,F8,12/8D,F5,12,043F 
DRTR RD,F9/12/80,F6,12,RO/F0,04Efl 
12/80/EF,12/RO,F4,12/8D/03E0 
Fr,12/R9/00/20/02/FF,RD,0450 
F9,12,C9,01,D0/2F,R9/3F,03BC 
ORTR CD/FS,12/B0/28/R9/0O,20,0385 
DRTR D2/FF,RD/F1/12/C9/FF/F0,0639 
DRTR 14/EE/E9/12/R9/00/8O/F9/O42C 
DRTR 12/8D,F8,12/80/F5,12/80/03CR 
DRTR F6/12/4C/R6/10/R9/04/20/02O7 
DRTR C3/FF,4C/CC,FF,4C/E4/10,0519 
DRTR 00/00/00/00/00,00/00/00,0000 
DRTR R6/D9/R5/D9/R0/00/20,BR/0477 
DRTR FF/R5,D8/fi2,O9,R0,12/20/04C9 
DRTR BD/FF/R9/00/R2/00/R0,18/03BF 
ORTR 20/05,FF,60/00/00,00/00/0254 
DRTR R9/08/20/B1/FF/R9,F0/20/043R 
DRTR 93,FF,R9,24/20,88/FF,20/0446 


DRTR 

DRTR 

DRTR 




jjf 


iilií 


/.‘ír'í 




r 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

O i 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

! 

O I 


9 JULt-AUGUSZT 















EGYESÜLET 



o 

1910 

DRTR 


1920 

ORTR 


1930 

ORTR 

o 

1940 

ORTR 


1950 

DRTR 


1960 

DRTR 

o 

1970 

DRTR 


1980 

DRTR 


1990 

DRTR 


2000 

DRTR 

o 

2010 

DRTR 


2020 

DRTR 


2030 

DRTR 

o 

2040 

DRTR 


2050 

DRTR 


2060 

DRTR 

o 

2070 

DRTR 


2080 

DRTR 


2090 

DRTR 

0 

2100 

DRTR 


2110 

DRTR 


2120 

DRTR 

o 

2130 

DRTR 


2140 

DRTR 


2150 

DRTR 

O 2160 

DRTR 


2170 

DRTR 


2180 

DRTR 

o 

2190 

DRTR 


2200 

DRTR 


2210 

DRTR 


RE,FF, 
60 , 20 , 
fl0,03, 
DC,20, 
D0,13, 
DC,R5, 
20 , 02 , 
R5,FF, 
F6,fl9, 
D0,C8, 
ei,FF, 
RE,FF, 
B1,FF, 
RE,FF, 
60,RD, 
RD,F8, 
00,60, 
00 , 00 , 
RD,06, 
RD,12, 
12,FF, 
18,80, 
00 , 00 , 
fi5,09, 
08,0R, 
00,90, 
00,lE, 
60,00, 
RO,06, 
RO,12, 
12,FF, 


R9,08, 
96,FF, 
84,RB, 
R5,FF, 
R4,RB, 
00 , 20 , 
FF,R9, 
F0,05, 
00 , 20 , 
20,RB, 
R9,E0, 
20,RB, 
R9,E0, 
R5,C6, 
F9,12, 
12,C9, 
R9,FF, 
00,00 , 
FF,09, 
FF,29, 
RO,14, 
14,FF, 
00 , 00 , 
80,19, 
0R,0R, 
00,IC, 
90,00, 
00 , 00 , 
FF,29, 
FF,29, 
R5,0E, 


20 , 

R9, 

20 , 

85, 

88 , 

5F, 

00 , 

20 , 

02 , 

FF, 

20 , 

FF, 

20 , 

C9, 

C9, 

40, 

60, 

00 , 

20 , 

FB, 

FF, 

60, 

00 , 

FF, 

0R, 

90, 

IF, 

00 , 

IF, 

F7, 

80, 


B4, 

00 , 

R5, 

00 , 

00 , 

R4, 

00 , 

02 , 

FF, 

R9, 

93, 

fl5, 

93, 

40, 

00 , 

90, 

00 , 

00 , 

80, 

09, 

85, 

00 , 

00 , 

85, 

05, 

00 , 

CR, 

00 , 

80, 

09, 

14, 


FF,R9, 

85.90, 
FF,85, 
R4,90, 
EB,fi6, 
R9,20, 
13,20, 
FF,00, 
R0,02, 
08,20, 
FF,20, 
RE,20, 
FF,20, 
F0,FR, 
F0,0R, 
03,R9, 
00 , 00 , 
00 , 00 , 
06,FF, 
08,80, 
0E,R9, 
00 , 00 , 
00 , 00 , 
0R,R5, 
0R,R2, 

10.90, 
00,FI, 
00,00 , 
86,ff; 

04,80, 
FF,60, 


O 



04OR 
0303 
04IB 
0536 
05IB 
044R 
0390 
055R 
043F 
0433 
050B 
04ER 
050B 

060B _ 
03FC / 

0268 I 
0000 
0360 
0380 
0400 
0218 
0000 
0527 
0281 
0210 
0365 
0060 
038C 
0378 
0494 
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AMIGA 


(II. rész) 


operációs rendszere 



Az első részben a Workbench-ról és röviden a CLI-röl volt szó. 
Most a CLI részletesebb taglalása következik. 

Minden Amigához jár legalább 3 lemez. A Workbench. az 
Extrás és egy oktatólemez. A CLI szempontjából a Workbench- 
lemez — a rendszerlemez — a legérdekesebb. Mit tartalmaz 
ez a lemez? Ezt az AmigaDOS 'List' vagy 'Dir' parancsával 
lehet megnézni. A lemez fókatalógusa többek kozott tartalmazza 
a következő alkatalógusokat: 'S', 'C. 'L', 'Libs', 'Devs', 'Fonts', 
'T', 'System', 'Utilities', 'Expansion', 'Empty'. A mostani tár¬ 
gyalás szempontjából az el^ 5 a fontos. 

Az 'S' alkatalógusban lévő 'Startup-Sequence' nevű batch- 
vagy szovegfile, funkcióját tekintve megegyezik az MS-DOS 
'Autoexec'bat' állományával, tehát rendszertöltéskor az abban 
lévő DOS parancsok hajtódnak végre. Ez tetszőlegesen módo¬ 
sítható, Így mindenki ízlése szerint állíthatja össze saját boot- 
programját. 


A 'C'-ben található meg az összes AmigaDOS parancs (mint 
az első részben szerepelt, az 1.2-es AmigaDOS-ban minden 
parancs külső parancs). Itt rögtön felvetődik a kérdés, hogyan 
lehet az, hogy soha nem kell elérési utat megadni, ha egy 
AmigaDOS parancsot akarunk használni? (Pl. a 'Devs/printers' 
alkatalógusban vagyunk és szeretnénk megnézni a tartalom- 
jegyzéket. Nem kell a 'DF0:C/List' vagy ':C/List' vagy 'C:List' 
vagy 'SYS:C/List' vagy a '//C/List' alakot használni, egyszerűen 
elég csak azt begépelni, hogy 'List'.) Ez úgy lehets^es, hogy 
a ’Path' parancsnak nem az az alapértelmezése, hogy nincs 
elérési út, hanem — mint ez a 'Path show' vagy paraméter nél¬ 
küli 'Path' paranccsal ellenőrizhető — 'Current directory', majd 
'C:'. Tehát a beirt parancsot a gép egy program nevének tekinti, 
amelyet először az aktuális katalógusban, majd — ha ott nem 
találta — a 'C:' logikai katalógushoz rendelt fizikai alkatalógus¬ 
ban keresi. (Az alaj^értelmezésnél kevesebb elérési út nem 
adható meg.) 
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Az ’L' az operációs rendszer Különféle kezelő- és segédprog 
ramjait tartalmazza. Itt található pl. a 'Ram-handler', a RAM 
DISK kezelőprogramja, a Port-Handler stb. Ezek a programok 
a CLI-ből nem futtathatók — nem is arra valók —, ezeket igény 
esetén a rendszer tölti be automatikusan. 

A rendszer tranziens bináris könyvtárai a ’Libs’ alkatalógus- 
ban vannak. Ilyenek pl. a matematikai könyvtárak, amelyek 
— többek kozott — a lebegőpontos rutinost tartalmazzák. 
Ha egy felhasználói program ezeket a rutinokat akarja hasz¬ 
nálni. a rendszer — ha előzőleg nem volt betöltve — betölti a 
megfelelő rutint tartalmazó könyvtárat és a hívó program ren¬ 
delkezésére bocsátja. A betöltés mindig arról a lemezről tör¬ 
ténik. amelyről a rendszert hívtuk. 

A ’Devs’ alkatalógusban különböző egységek meghajtó- 
programjai vannak. Pl.: 'parallel.device' a párhuzamos port 
kezelésére, ’serial.device' a soros port kezelésére, 'printer.de- 
vice' a nyomtató meghajtója stb. Mivel az Amigának szabványos 
soros és párhuzamos interfésze van. ezért nagyon sokféle nyom¬ 
tató kapcsolható hozzá. A különböző nyomtatók — ha tudnak is 
néhány szabványosnak tekinthető más nyomtatót emulálni — 
éppen eléggé eltérnek egymástól ahhoz, hogy teljesen más 
nyomtatási képük legyen. Az Amiga operációs rendszerében 
van egy lehetőség, amely segíthet ezen a problémán. Éppen a 
'Devs'-ből nyíló ’printers’ alkatalógusban a rendszer által ismert 
nyomtatók meghajtóprogramjai találhatók. A ’Preferences’ se¬ 
gédprogrammal ezek koóül lehet kiválasztani a kívántat — 
A ’Preferences' egy általános konfiguráló program, amellyel 
többek kozott be lehet állítani a Workbench képernyő színeit/ 
/helyzetét az egér által mozgatott mutató szlneit/alakját. a 
soros csatorna paramétereit, a nyomtató típusát a nyomtatás 
paramétereit, a billentyűzet és az egér paramétereit A ’Pre- 
ferences' a kiválasztott opciókat a ’Devs/system-configuration’ 
fiiéba menti ki. — A ’Olvs’-ből egy másik lényeges alkatalógus 
IS nyílik, a ’keymaps’. Mint ahogy a nyomtatók is különbözhetnek 
egymástól, úgy az egyes országok billentyűzetszabványai is 
eltérőek. A ’keymaps'-ban a nyugat-európai országok és az 


USA szabványai szerinti billentyűzet dekódolás! táblázatok ta¬ 
lálhatók. Ezek a ’SetMap’ programmal aktivizálhatók. (A ’Set- 
Map' program a 'System' alkatalógusban található.) Ha pl. a 
német szabvány szerint szeretnénk használni a billentyűzetet 
— és a főkatalógusban vagyunk —, elég csak annyit beírni, 
hogy 'System/SetMap d'. (A billentyűzet dekódolási táblázat 
neve elé nem kell elérési utat megadni, a 'SetMap' automati¬ 
kusan a 'Devsrkeymaps'-ban keresi.) 

Ezek a legfontosabb szabvány alkatalógusok. amelyeket az 
operációs rendszer használ. 

Érdekes kérdés, hogy a rendszer hogyan és mikor állapítja 
meg. hogy miből gazdálkodhat. (Előfordulhat ugyanis, hogy 
egy lemezen nincs meg egy vagy több szabványos alkatalógus.) 
Ennek megértéséhez érdemes részletesen megvizsgálni egy 
rendszertoltés fontosabb mozzanatait. 

Bekapcsolás vagy rését után a ROM-ban lévő inditóprogram 
ellenőrzi, hogy a 0-ás lemezmeghajtóban lévő lemezről lehet-e 
rendszert tölteni. (Ilyen lemezt az 'Install' AmigaCX)S parancs¬ 
csal lehet készíteni.) Ha lehet akkor megvizsgálja a főkataló¬ 
gusból nyíló szabványos alkatalógusokat — ha vannak. A me¬ 
móriában elkészíti azt a hozzárendelési táblázatot, amely tar¬ 
talmazza. hogy melyik szabványos logikai katalógushoz melyik 
fizikai alkatal^us tartozik. (Ezt a táblázatot az 'Assign Üst' 
vagy paraméter nélküli 'Assign' AmigaDOS paranccsal lehet 
megnézni.) Ezután — ha létezik — betölti a 'Devsrsystem-con- 
figuration' file-t amely a rendszer általunk beállított — I. 'Pre- 
ferences' — paramétereit tartalmazza. (Ha nincs meg ez a file. 
akkor a ROM-ban lévő alapértelmezés érvényes.) Ezek után az 
alapparamétereknek megfelelő Workbench képernyőn egy 
AmigaDOS nevű CLI-ablakot nyit majd megnézi, hogy van-e 
'S:Startup-Sequence' file. Ha nincs, a rendszer töltése befeje¬ 
ződik és a CLI-ből máris lehet dolgozni; ha van, akkor a már is¬ 
mertetett módon elkezdődik ennek a szövegfile-nek a feldol¬ 
gozása. 

Ezek ismeretében már érthető, hogy néha miért kéri vissza 
a gép a rendszerlemezt rwha a felhasználó egyáltalán nem 
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hivatkozott közvetlenül rá. Ilyen fordulhat elő nyomtatáskor, 
a 'Say' program használatakor, az első RAM DISK-re való hivat¬ 
kozáskor, a Workbench ’lnfo’ menüpontjának használatakor 
stb. Ilyen esetekben a rendszer azokat a tranziens rendszer- 
programokat hívja be a szabványos logikai katalógusokon ke¬ 
resztül, amelyek az adott funkció kezelését) vezérlését végzik. 
Az a tény, hogy a rendszer ezeket a funkciókat a logikai kataló¬ 
gusokon — III. a hozzárendelési táblázaton — keresztül bonyo¬ 
lítja le. ad lehetőséget arra. hogy szükség esetén — a táblázatot 

500 ... 2000 ... 2500 ... 3000 ... 

1989 első negyedévében több, Amigához kapcsolódó újdon¬ 
sággal jelentkezett a Commodore cég. 

A már korábban kifejlesztett A2090A jelű nagy sebességű 
merevlemez vezérlő kártya (amely egyszerre 4 SCSI és 2 ST506 
csatolójú egységet tud meghajtani) után az A2620/2 jelű pro¬ 
cesszorkártya is kapható. Az A2620/2 egy 14,32 MHz órafrekven¬ 
ciával — pontosan az eredeti kétszeresével — működő 32 bites 
68020-as processzort, egy 68881 -es lebegőpontos matematikai 
társprocesszort (opcionálisan 20 vagy 25 MHz-es 68881-es vagy 
68882-es FPU), egy 68851 -es memóriakezelő egységet és 2MB 
32 bites RAM-ot tartalmaz. 

Az A590 egy 20MB-os winchester rendszer, amelyben egy 
csatlakozóaljzat is van RAM-bővítés számára 2 MB-ig. Feltehe¬ 
tőleg a cég ezzel kívánja általánossá tenni a winchester hasz¬ 
nálatát. 

A nem Amiga vonal is erősödött. Az ismert A2088 jelű XT- 
kártya után megjelent az AT-kártya is (A2286). Az A2286-ban egy 
8 MHz-es Intel 80286-os processzor (opcionálisan 80287 is), 
1MB RAM, 128 KB dual-port RAM (ezen keresztül kommunikál 
az AT és az Amiga), 16 KB BIOS. egy 1,2 MB-os 51/4 collos 
lemezmeghajtó (opcionálisan 360 KÚpÖO KB 31/2 coll is) 
és akkumulátorral védett óra van. A kártyához MS-DOS 3.3-as 
operációs rendszert és GW—BASIC-et szállítanak. 


megváltoztatva — módosítsunk a rendszer működésén. így ér¬ 
hető el pl., hogy egy prog°am ugyanúgy működtethető legyen 
winchesterről, I^M DISK-ről, mint hajlékony mágneslemezről, 
vagy hogy az összes AmigaDOS parancsot—megfelelően nagy 
szabad memória esetén — RAM-rezidenssé tegyük. Ez utóbbit 
az alábbi két paranccsal lehet megvalósítani: ’Copy C:RAM:C'. 
majd ’Assign C:RAM:C'. 

Újhelyi Gyula 

Az eddig ismertetett újdonságok — az A590 kivételével — 
mind kártya kivitelűek, így csak a 2000-es alapú rendszerekben 
alkalmazhatók. 

Két új géppel gazdagodott az Amiga-család. Az Amiga 
2000HD-vel és az Amiga 2500-zal. A 2000HD egy Amiga 2000-es 
az A2090A vezérlővel és egy 40MB-os winchesterrel. A 2500-as 
szintén egy Amiga 2000-ből mint alapgépből áll, kiegészítve 
A2620/2 -f A2090A + 40MB winchester. Az Amiga 2500-hoz 
az Amiga operációs rendszerén kívül a UNIX is használható 
(UNIX System V. Release 3.1), amelyet itt AMIX-nek neveznek. 
A 2500UX konfigurációhoz a 40MB-OS helyett egy 80 vagy 100MB- 
os winchester és egy 150MB-os streamer is tartozik. 

Vajon mi jöhet a 2500-as után? Természetesen a 3000-esl 
Főprocesszora Motorola 68030-as 4MB RAM-mal. Tudni fog 
egy új—nem váltott soros—grafikus üzemmódot is: 1024 x 1024 
képpont több mint 16 millió színből egyszerre 256 lehet a kép¬ 
ernyőn. A jobb grafikán túl egy továbbfejlesztett hang chip (I?) 
is javítja a gép lehetőségeit A chip RAM 2MB (chip RAM-nak 
nevezik azt a memóriaterületet amelyet a társprocesszorok is 
elérnek), de kell is ez, mivel az új képernyő memóriafoglalása 
kereken 1MBI Az alapkiépítéshez 80MB winchester, 5 Amiga 
és 5 IBM AT bővitőheiy is tartozik. A torony kivitelű gép operá¬ 
ciós rendszere is érdekes: 2.0-ás verziójú Workbench (!), amely 
csak a 3000-en fog futni. Mindez nagyon jól hangzik, de '89 
utolsó negyedéve előtt nem valószínű a megjelenése, így addig 
az Amiga 2500 a sorozat csúcsmodellje. 

U. Gy. 


Tisztelt Szerkesztőség! 


A csákvári Kossuth Művelődési Ház és a TIT Fejér 
Megyei Szervezete ismét találkozót szervez a számító¬ 
gép-felhasználók és a számítógép-barátok részére. 
Rendezvényünkre a Csákvári Napok keretében kerül 
sor. 

A találkozóra mindazokat várjuk, akik Commodore, 
Sinclair és Videoton Tv Computer típusú gépekkel 
dolgoznak, és mindazokat, akik még csak ismerkednek 
a számítógépekkel. Várjuk a lelkes amatőröket, és a szak¬ 
mát magas szinten művelő profikat. 

A program keretében tág lehetőséget biztosítunk a 
mikrogép-tulajdonosoknak a szoftverek csereberéjére 
is. Amennyiben programot akar cserélni, kérjük, szá¬ 


mítógépet és monitort hozzon magával. Asztalt és 
elektromos áramot térítés ellenében biztosítunk. 

A találkozó színhelye a csákvári Sportcsarnok lesz. 
Időpontja: 1989. augusztus 27. (vasárnap) A program 
és a cserebere reggel 10 órától délután 1.6 óráig tart. 

Kérjük az Önök segítségét, hogy ez az információ 
minél több érdeklődőhöz eljusson. 

Segítségét előre is köszönjük I 

Tisztelettel: 

Hujber Antal 

műv. ház ig. 
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Operációk BASIC-ben 

így számol 
a komputerünk 

(II. rész) 


Az egyes bitek tudatos be- és kikapcsolása mellett a második 
rés 2 az igazságértékekkel is foglalkozik. A számítógépünk az 
igaz/hamis logika tudományág területére lép. 

Miután az első részben a számunkra közvetlenül rendelke¬ 
zésre álló BASIC műveletekkel foglalkoztunk, ma egy új. érdekes 
és igényes téma felé fordulunk. A téma pedig az igazságérté¬ 
kekkel való programozás, illetve a WAIT parancs leírása és 
használata. 

BITEK BE- ÉS KIKAPCSOLÁSA ■■■i 

Térjünk rá mindjárt az első gyakorlati tippre a BASIC prog¬ 
ramozók számára (az ÉS illetve a VAGY logika az előző részből 
bizonnyal előttünk van még). A logikai műveletek a POKE 
utasítás használatakor jelentenek sokat. Például, ha arra van 
szükség, hogy a gép tárolójában egyes bitek értékét határozzuk 
meg egy kívánatos minta szerint. A C64-es esetében ez a zene 
és a grafika programozásánál elkerülhetetlen, de alkalmazást 
a Cl^as és a Plus4-es esetében is találunk. A megoldás a 
POKE, valamint az OR/AND funkciók kombinált használata. 

Ha szeretnénk egy adott bitet az eredeti értékétől függetlenül 
bekapcsolni (1-es érték), vagy bekapcsolva hagyni, az alábbi 
egyszerű képletet kell megjegyezni: 

POKEX.PEEK(X)OR2tY 

Az X az a tárolócella cím, ahol az Y-dik bitet (0—71) akarjuk 
befolyásolni. 

Ha például a 600-as elmen a 7. bitet akarjuk bekapcsolni, az 
alábbi sort kell a fontiek szerint beadni; 

POKE 600.PEEK(600) OR 217 

A (l esnél a sprite-ok aktiválása gyakori feladat. Itt az Y 
annak a sprite-nak a száma, amelyet aktiválni kívánunk: 

POKE 53269.PEEK(53269) OR 2 t Y 

A működd megértése nem lehet nehéz. A fonti példoban 
legyen a 600-as cella 7. bitje nulla. A második operandusnál 
azonban a hetedik bit értéke 1 (be van kapcsolva), hiszen a 
2 t 7»128, azaz binárisan %10000000. Az OR kapcsolás értel¬ 
mezése szerint a két bitérték kombinációja az 1-es érték lesz. 
A 7. bitet tehát bekapcsoltuk. A többihez nem nyúltunk. 

Ha most az egyes bitek torlését (kikapcsolás, lenullázás) 
akarjuk megvalósítani, akkor az AND utasításra van szükség: 
POKE X.PEEK(X) AND (255-21Y) 

Az X az a tárolócella dm. ahol az Y-odik bitet (0—7!) akarjuk 
befolyásolni. Például; 

POKE 53269.PEEK(53269) AND (256-2 1 3) 

A C64-esnél a 3. sprite-ot kikapcsoljuk. 

Itt sem nehéz a működés megértése. Bármely értékű is az 
adott tárolócellában a kiszemelt bit a kívánt helyen a 255—2 I Y 
formula a nulla értéket hozza létre a kettes számrendszerben 
felírt tárolócella érték esetében. A nulla érték ÉS kapcsolása 
(AND) hatására azután a kiszemelt bitet toroljuk. Minden más 
bit értéke változatlan marad. A sprite kikapcsolási példában a 
255—2 3= 247, ami binárisan %11110111 lesz. A harmadik bit 
(a számlálás 0-tól 7-ig I) értéke tehát nulla. Próbálkozzunk meg 
a számításokkal úgy, hogy magunk írjuk tol a bináris értékeket. 
Ne feledjük el. hogy csak 1 byte-os számokkal (0—255) dolgo¬ 
zunk, amikor a bitek ki- és bekapcsolása a feladat. 


Térjünk rá most a másik témánkra. Ehhez előbb hadd álla 
podjunk meg egy fontos kérdésben. Az igaz/hamis kiértékelés 
a helyes kifejezés esetében a —1. a hamisnál pedig a nulla 
értéket adja eredményül. 

IGAZSÁGÉRTÉKEK PROGRAMOZÁSA 

A foiiii tulajdonságot kihasználhatjuk a programjainkban 
számítások végrehajtására (az igaz/hamis kiértékelés ugyanis 
a BASIC-ben egész számokkal dolgozik). Mutatnánk néhány 
olyan megoldást, amelyet a BASIC programozásnál használ¬ 
hatunk. 

REPEAT...UNTIL 

A repeat-until hurokban a kilépés akkor történik meg. ha egy 
bizonyos feltételt teljesítettünk. A hurkot legalább egyszer 
lefuttatjuk. 

A C16-oson és a Cl28-ason ez a fajta hurok megtalálható 
a DO L(X)P UNTIL alatt Sajnos, ezt a BASIC V2.0 nélkülözi. 
De a szimuláció megtörténhet; 

10 FÓR FUT=-1 TOO 
20 RÉM a hurok akciómagja 
30 FUT - NŐT (a feltétel) 

40 NEXT FUT 

Egy konkrét példán a megoldás jobban szemlélhető; 

10 FÓR FUT=-1 TOO 
20 READ B$ 

30 FUT - NŐT (B$="") 

40 NEXT FUT 

Ez a kis program csak a példa megvilágítására készült Ön¬ 
magában nem futtatható, hiszen nem állnak rendelkezésre 
DATA sorok. A működés viszont megérthető. A FÓR—NEXT 
hurkon belül a változót (itt: FUT) megváltoztathatjuk. Ha a 
hurok —1 -tői nulláig fut akkor a változót mindig —1 értékre kell 
állítani, ha folyamatosan ismételni szeretnénk azt. Ha a változó 
értéke nulla lesz, megszakítjuk a hurkot Az egyetlen szokatlan 
dolog a programunkban a FUT—NŐT (feltétel) sor. De gondol¬ 
juk csak át. Ha a feltétel a mi esetünkben hamis lesz (ennek 
értékeredménye nulla), akkor a FUT változó értéke —1 lesz 
(NŐT 0—1). Ha azonban a feltétel teljesül, akkor a változónk 
értéke azonnal nulla lesz, és a hurokból kiszállunk. 

WHILE...DO HUROK 

A while-do hurok esetében, amely a repeat-untilhoz hason¬ 
lóan a BASIC V2-ben nincs meg. az a feltétel, amelynek biztosí¬ 
tania kell a hurok lefutását elöl áll. Ha a feltétel nem teljesül, 
átugorjuk a hurkot azaz itt nincs szükség még az egyszeri le¬ 
futtatásra sem. A Cl6-nál és a Cl28-nál ezt a hurkot a DO L(X)P 
WHILE szlntaktrkával tudjuk programozni. 

Egy lehetséges BASIC V2 struktúra az alábbi lehet: 

10 ON -<NOT(feltétel)) GOTO 40 
20 RÉM a hurok akciómagja 
30 GOTO 10 
40 RÉM a hurok vége 

Itt is adnánk egy konkrét megoldást: 

10 ON -(NOT(LEN(B$) = 20) GOTO 40 
20B$=B$-I-" " 
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30 GOTO 10 
40 RÉM a hurok vége 

A B$ változóhoz mindaddig szóközöket láncolunk hozzá, 
amíg az el nem én a húsz karaktert. 

A funkciót az alábbiak szerint érthetjük meg. Az ON... 
GOTO (illetve az ON.. .GOSUB) utasítás a többszörös ugrási 
hozzárendelés eszköze (pl. ON A (30T0 100.200,300. ahol ha 
az A értéke 1, 2 vagy 3, akkor a 100-as, a 2O0-as vagy a 300 as 
sorra ugrunk). De mód van arra is. hogy itt csupán egy ugrási 
célt adjunk meg. Ha a változó értéke itt (plusz) 1, akkor a meg¬ 
felelő sorra ugrunk. Ha az érték egytől különböző, a sorban a 
következő utasítást hajtjuk végre, amely itt a következő BASIC 
sorban található. Az elemzés szerint a mínusz NŐT... kifejezés 
értéke akkor lesz +1. ha a feltétel teljesül. A while-do hurkot 
máris elkészítettük. 

AZ ISMERETLEN WAIT PARANCS 

A normál BASIC programozó igen ritkán használja a WAIT 
parancsot. Ennek oka az. hogy az alkalmazás erősen korlátozott, 
és a szintaktika igen komplex. 

Ez a parancs mindaddig leállítja a futó BASIC programot, 
amíg egy meghatározott tárolócellában található érték (adott 
bináris minta) elő nem áll. A WAIT utasítás BASIC alkalmazása 
azért nehézkes, mivel szinte kizárólag az adott tárolócellákkal 
összefüggő külső akciók lekérdezése történhet meg (a BASIC 
programot leállítjuk, semmilyen más tárolócella értéke nem 
változtatható meg). 

Ráadásul a szintaktika is áttekinthetetlen; WAIT X,Y(,Z]. 
A WAIT parancs után egy elmet kell megadni (X), illetve egy 
(Y), esetleg választhatóan még egy (Z) értéket. 

A funkció magyarázata sem egyszerűbb. Nézzük azt a példát, 
hogy a cím után két értéket adtunk meg. Akkor a megadott 
címen (X) található értéket (bitmintát) a logikai KIZÁRÓ VAGY 
funkcióval (exkluzív vagy-nak EOR-nak is nevezik), összekap¬ 
csoljuk a másodiknak megadott értékkel (Z), amelyet emiatt 
EOR maszknak neveznek. Az így megkapott értéket az elsőnek 
feltüntetett értékkel (Y) a logikai ES (AND) funkcióval kapcsol¬ 
juk össze. Az Y-t ezért AND maszknak is nevezik. Amennyiben 
a WAIT parancsnál a címet csak egy érték követi, úgy csakis 
az ÉS kapcsolás (AND) történik meg. Mivel a logikai műveletek 
megértése nehezebb (lásd ehhez feltétlenül az első részt), 
ezért logikus a ritka alkalmazás. 

Ha a logikai műveletek eredménye nulla, akkor a megadott 
címet a WAIT parancs továbbra is megfigyelés alatt tartja, a 
BASIC program továbbra is áll. Ha azonban a művelet a nul¬ 
lától különböző értéket eredményezett, máris tovább megyünk 
a sorban következő BASIC paranccsal. Egyébként a régebbi 
64-es, Plus4-es kézikönyvekben a WAIT parancs leírásy hibás. 

Amennyiben a WAIT parancsot egy értékkel használjuk, akkor 
a programunkat mindaddig leállítjuk, amíg a megadott tároló¬ 
cellában egy meghatározott bit értéke 1 nem lesz. 

WAIT 653.1 

Most a C64-es addig vár. amíg meg nem nyomjuk a SHIR 
gombot. Ugyanis a 653-as tárolócella figyeli a SHIFT (0. bit), 
a ComrTKxjore (1. bit) és a CTRL (2. bit) gombokat. A fonti példá¬ 
ban a 653-as címen található értéket az 1-es értékkel az AND 
funkció szerint kombináljuk; 


A 663-as cím 

érték 

bit 7 

6 

5 

4 

3 

2 

1 

0 

nincs gombnyomás; 

0 

%o 

0 

0 

0 

0 

0 

0 

0 

AND 










AND maszk; 

1 

%0 

0 

0 

0 

0 

0 

0 

1 

az eredmény; 

0 

%o 

0 

0 

0 

0 

0 

0 

0 


Ha nem nyomtuk meg a <SHIFT >-et, úgy a címen a nulladik 
bit értéke nulla (a bit ki van kapcsolva). De így az AND maszk 
szerinti logikai művelet eredménye is nulla. Hiszen (lásd az 
előző részt) az ÉS kapcsolás igazságtáblázata szerint a bitek 


Összekapcsolásánál akkor és csyk akkor kapunk 1 -et. ha mind¬ 
két bit be van kapcsolva (azaz értékük 1). Amennyiben azonban 
megnyomjuk a <SHIFT >-et, az operációs rendszer azonnal be¬ 
kapcsolja a C64-esnél a 653-as cellában a 0. bitet. Most az AND 
művelet eredménye a 0. bitben az 1 lesz, aminek hatására a 
WAIT parancs befejeződik, a program továbbfut. 

Még egy példa ehhez; 

WAIT 653,6 

Ebben az esetben az AND maszk értéke két bekapcsolt bitet 
ad, amelyet mi decimálisán a 6-os értéknek értelmezünk. Azaz 
211 + 212 = 6, vagyis a lekérdezésnél az 1 -es és a 2-es bitet 
figyeltetjük. Az elmondottak szerint ez a két bit a Commodore 
és a CTRL gombokhoz tartozik. Vagyis a WAIT utasítás befeje¬ 
zéséhez nekünk vagy a <C=>. vagy a <CTRL> gombot kell 
megnyomni. Az első esetben a logikai ÉS kapcsolás eredménye 
a decimális 2 érték lesz, a másiknál a decimális 4. Mindkettő 
nullától különböző, vagyis a megszakltási kritérium előállt. 

WAIT KÉT PARAMÉTERREL imtiaWKMm 

Ha a WAIT X.Y,Z szintaktika szerint használjuk az utasítást, 
úgy a programot mindaddig leállítjuk, amíg egy bit kikapcsoló¬ 
dik (Y=Z). vagy egy bit kikapcsolódik, vagy egy másik bekap 
csolódik(Y Z). 

A WAIT parancsnál a logikai kizáró vagy (EOR) műveletet 
használjuk. Ez a C64-esnél és a Plus4-esf>él nincs meg. a Cl28-as 
tulajdonosok a XOR alatt találják meg ezt a BASIC parancskész¬ 
letben. A kizáró vagy kapcsolásnál (lásd az előző részt, illetve 
a Boolean algebra szakirodalmat) az eredmény abban az eset¬ 
ben lesz 1, ha az összevetett két bit értéke egynríástól különbözik 
(0/1 vagy 1/09. Amennyiben mindkét összevetett bit kikapcsolt 
vagy bekapcsolt állapotban van, a logikai kapcsolás eredménye 
nulla lesz. Például várjon arra a C64-es, míg a 2-es port joystick 
tűzgombja megnyomott állapotba kerül. 

WAIT 56320,16,16 

Nézzük meg alaposan az 56320-as tárolócellát; 


^z 56320-as cím 

érték 

bit 7 6 5 4 3 2 1 0 


127 

%0 1 1 1 1 1 1 1 

EOR 

EOR maszk (Z—16) 

16 

%0 00 1 0 0 0 0 

a köztes eredmény; 

111 

%0 1 1 0 1 1 1 1 

AND 

AND maszk (Y = 16) 

16 

%0 0 0 1 0 0 0 0 

az eredmény; 

0 

%0 0 0 0 0 0 0 0 


Így a WAIT utasítás folyamatosan isrr^étel, mert a végered¬ 
mény nulla. Ha azonban a tűzgombot megnyomjuk, akkor az 
56320-as címen álló érték bitmintája %D1101111 lesz, mi°e a 
WAIT parancs befejezi a munkáját. 

Elméletileg lehetséges a számítógépet két különböző Y és Z 
érték megadásával arra várakoztatni, hogy egy bit kikapcsoljon, 
ugyanakkor az azonos cím egy másik bitje bekapcsoljon. Értel¬ 
mes alkalmazást azonban erre nem tudunk keresni. 

Mára ennyi elég is lesz. Most már ismerjük a WAIT parancsot, 
a POKE-kal pedig komolyabban tudunk bánni. Lentebb még 
egyszer összefoglaljuk ezeknek a parancsoknak az alkalmazá¬ 
sát A következő részben kizárólag az igazságkeresés logikai 
műveleteivel fogunk foglalkozni, illetve megoldunk néhány lo¬ 
gikai feladványt is. 

1. várakozni, míg egy cím adott bitje bekapcsol; 

WAIT cím, 2 f A 

2. várakozni, míg egy cím adott bitje kikapcsol; 

WAIT cím, 21 B. 2 r B 

3. várakozni, míg egy cím adott bitje be-, egy másik pedig ki¬ 
kapcsol; 

WAIT cím, 2tB+21 A.2t B 

A — annak a bitnek a pozíciója (0—7), amelyiket bekapcsoljuk. 
B — annak a bitnek a pozíciója (0—Í), amelyikat kikapcsoljuk. 
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Feketén-fehéren 



A NYOMTATÓ¬ 
PROGRAMOK 
FEJLŐDÉS 


Gutenberg. a könyvnyomtatás feltalálója erról legfeljebb csak 
álmodhatott. A modem nyomtatóprogramok segítségével a do¬ 
kumentumok előállítása oly egyszerű, mint a krumplipecsételés. 


GUTENBERG NYOMÁBAN 


A történet néhány évvel ezelőtt kezdődött. Két amerikai prog¬ 
ramozó kifejlesztett egy programot, melynek segítségével min¬ 
den számltógép-tulajdorKis képes volt elektronikus üdvözleteket 
küldözgetni, feltéve, ha a címzett is rendelkezett azonos típusú 
géppel. De épp ez volt a dologban a bökkenő. Hisz hogyan 
lehetett a barátnőt vagy a nagypapát meggyőzni arról, hogy ő is 
vegyen egy alkalmas házi számítógépet. 

Amikor a fejlesztők fölismerték ezt a problémát nekiláttak 
átírni programjukat. El is készült minden nyomtatóprogramok 
atyja, a Pnnt Shop. Ez a program azzal az eleddig szokatlan 
ötlettel kápráztatta el a számltigépes világot hogy megadta 
a szöveg és a grafika keverésének lehetőségét. Ezzel aztán 
lehetővé vált — teljesen függetlenül a számítógép jelkészleté¬ 
től —. hogy szinte bármiféle Irásképet/betűtipust használjunk. 

A rendelkezésre álló funkciókat (üdvözlőlapok, feliratok, mé¬ 
teres transzparensek, levélpari készítés) kis idő múlva a Print- 
master program is a rendelkezésünkre bocsátotta, amelyet di- 
rekt konkurenciaként készítettek el. Buta módon ez olyan jól 
sikerült, hogy a Prjnt Shop készítője, a Broderbund Software 
másolásért perelt és nyert is. 


AZ UTÓDOK 


Az ítélet után azonnal megbízatásba adott Printmester Plus 
program ugyan elkészült, de az soha nem jutott el Európába 
C64-e» véttozatként. S amint azt az IBM változat forgalmazója 
mondja, ez nem is fog megtörténni. De nem is volna fair dok^ 
ezt a programot a következőkben említettekkel összevetni, mert 
ezek sokkal többet tudnak (igaz, a kezelésük viszont nehezebb). 


Van egy fontos tulajdonság, ami innen indult, és azután egyre 
inkább elterjedt, ma pedig már mint szabvány él. Ezzel már 
a Printmaster is szolgált. A technika neve WYSIWYG. Emogott 
a rövidítés mögött a What You See IS What You Get angol 
kifejezés áll. ami gyakorlatban annyit tesz, hogy amit beadunk 
a képernyőre (s ott megjelenik), azt fogjuk viszontlátni a papí¬ 
ron is. Azaz a képernyőn szemrevételezhetjük a kész munkát. 
Egy modern pontmátrix nyomtató igen nagy grafikus fölbontása 
(grafikus pont per adott felület) miatt a képernyőn általában 
vagy csak egy részletet látunk egyszerre, vagy a nagykép kicsi¬ 
nyített mását. 

Mialatt a Print Shop és a Printmaster csupán csak kevés nyom¬ 
tatási képváltozat alkalmazását tette lehetővé, a későbbi prog¬ 
ramok jóval nagyobb játékteret adtak a fentáziának. 

A 09 márkába kerülő Newsroom-ot kinnondottan az iskolai, 
egyesületi és egyéb újságok készítésére találták ki. Ez a program 
kevésbé való üdvözlőlapok készítésére, bár ez is lehetséges. 
A betöltés után egy grafikusan igazán igényes menüben talál¬ 
juk magunkat, amelyből fölhívhatjuk az egyes almenüket. 
A „Photo Lab"-ban kikereshetjük a mellékelt 6(X) grafikából 
(fotóból) azt. amelyikre szükségünk van. Az újság fejlécét a 
„Banner", az egyes cikkeket a „Copy Desk"-ben készíthetjük el. 
A „Layout" segítségével az egyes elemeket összekeverhetjük. 
A „Wire Service" segítségével a teljes munkát vagy annak egy 
részletét más Newsroom tulajdonoshoz küldhetjük telefonon 
keresztül. 

Azaz egy sokoldalú, sikeres programról lenne szó? Majdnem. 
Mert a legeslegutolsó és leglényegesebb menüpontban, a 
„Press" (azaz nyomda) menüben kapott eredmény nem néz ki 
jól. Bár a programot illesztették a német ékezetekhez (és német 
a kézikönyv is), de nagy gondot okoz a nyomtatóillesztés. 
A megadott interfész típusok ugyanis Európában ismeretlenek. 
De ni^is, ha sikerrel járnánk, nagyon szegényes a kapott 
„nyomat". Gyenge teljesítmény ugyanis a csekély. 480 pontyso¬ 
ros fölbontás. Ha jól meggondoljuk, némely nyomtató beépített 
jelkészlete szebb karaktereket ad. 
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A Newsroom kezelése egyszerű, de az említett nyomtatási 
gondok és a soványka minimal-editor nem igazán meggyőző. 
A programmal azonban, főleg a mellékelt rengeteg grafika 
miatt nagy orom dolgozni. 


A SPECIALISTÁK 


A Printfox program már sokkal hatékonyabb, mint a News¬ 
room, igaz a kezelése is sokkal komplikáltabb, s az ára is több 
(98 márka). A Printfox esetében külön van választva a szöveges 
és a grafikus editor. Mialatt az előbbi erősen emlékeztet a legis¬ 
mertebb szövegszerkesztőre, a Vizawntera, a grafikus editor 
egy Hi-Eddi Plus-nak felel meg. Két igen jó program egyesítve 
egy nyomtatóprogramban I S ráadásul ez a szintézis kiváló 
eredményt ad. A szöveges editorban megírhatjuk, amit aka¬ 
runk, vagy behívhatjuk azt a lemezről. Ezután megspékeljük 
azt megfelelő utasításokkal, amelyekkel meghatározhatjuk mi 
(szöveges részlet), hogyan (jelkészlet, Iráskép modifikáció) és 
hol (pozíció) jelenjen meg az a papíron. Itt számolgatni is kell, 
hogy a Printfox-szal közölhessük, hova szeretnénk tenni a gra¬ 
fikákat. öt jelkészletet mellékelnek a programhoz. Ajánlható 
a 78 márkába kerülő Charakterfox programcsomag megvétele, 
nemcsak amiatt, mert ez kiváló jelkészlet editor, hanem mert 
húsz újabb jelkészletet még mellékelnek. 

A szöveges editorból a betűket a grafikus tárolóba „nyom¬ 
tatjuk". Ezt úgy képzelhetjük el, mint egy fél A4-es lap méretű 
oldalt. Ez 640x400 képpontnak felel meg, amelyből 320x200 
képpontnyi kivágás látszik. A grafikus editor tartalmazza egy 
festőprogram minden fontos funkcióját. A tulajdonképpeni 
nyomtatás előtt a grafikává konvertált szövegbe be kell még 
tölteni a grafikákat. S erre az alapra építve egy kilenc tűs prin¬ 
terből fantasztikus minőséget vagyunk képesá< kihozni! A rend¬ 
szerhez mellékelt Setup programmal még a legegzotikusabb 
nyomtató illesztése is elvégezhető. Kétféle nyomtatási minő¬ 
ségben készíthetjük el anyagainkat standard szerint. Létezik 
azonban PFOX-j néven egy program, amely egy harmadik 
nyomtatási minőséget is rendelkezésre bocsát. A gyártó kínál 
48 márkáért egy 24 tűs gépekhez való rutincsomagot is PIN24 
néven. 

A Printfox nyitott rendszer, még magunk is írhatunk hozzá 
saját bővítéseket, ha megvan a kellő ismeretanyagunk. S ezek 
nemcsak nyomtatókezelők lehetnek, hanem egérmeghajtó vagy 
idegen grafikus formátumokat kezelő rutinok is. A gyártó Page- 
fox néven maga is kínál bővítést. Itt 100 kbytenyi plusz tároló 
segít minket a profi kiadványszerkesztésben. 


C64 180 KBYTE-TAL 


Hadd szóljunk konkrétabban a Pagefoxról. Ezt a programot, 
hasonlóan a Printfoxhoz, Hans HaberI készítette. Egyszerű 
kezelés, verhetetlen szolgáltatási spektrum került bele egy sze¬ 
rény modulházba. Ellentétben az egyéb nyomtatóprogramok 
kai, a Pagefox ugyanis modulként került forgalomba. Mindennek 
persze megvan a maga oka. A modulban ugyanis a 64 kbyte 
program és jelkészletek mellett plusz 32 kbyte is a rendelke¬ 
zésünkre áll. Ennyi munka természetesen az árban is tükröző¬ 
dik, 248 márka nem kis érvágás. Ezért azonban kapunk is valamit 
cserébe, mert a Pagefox nemcsak hogy mindent tud, amit a 
Printfox és a később ismertetendő Publish 64, hanem néhány 
olyan tulajdonsággal rendelkezik, amelyek igencsak figyelemre 
méltók. Megemlíthetjük például a kontúrszedésL ami annyit 
tesz, hogy a szöveget a grafika kontúrja ment^ jeleníti meg, 
nem úgy, mint például a Newsroom, ahol a grafika mindig négy¬ 
szöget „harap" ki a szövegből. De a meglévő és igen jól dolgozó 
automatikus (német) elválasztás is klassz, mivelhogy igen he¬ 
lyesen dolgozik, a komplex elválasztási szabályok ellenére is. 
Egyébként a kontúrszedés nem egy drága PC-kre Irt DTP prog¬ 
ramban hiánycikk. Mindezeken túl a Pagefox kezelése igen 
egyszerű (egér vagy joystick). A felhasználó rendelkezésére itt 
mindig egy komplett A4-es oldal áll, azaz a C64-esünk a meg¬ 
hökkentő 6^x8CX) képpont kezelésére alkalmas. Ez pedig ebben 


a géposztályban egyszerűen fantasztikus. 

A nyomtatást tekintve a Printfox és a Pagefox azonosak, 
a 9 tűs mátrixnyomtatókkal elért telített, harmonikus képek már- 
már műremeknek minősülhetnek. 

A Scanntonik cég Printfox és a Pagefox terméke tehát a 
kiváló nyomtatási minőséggel hívja föl magára a figyelmet. 
Azonban a programok ár/szolgáltatás viszonya is meggyőző. 
A Pagefox ezenkívül az egyszerűbb kezeléssel, az automatikus 
szóelválasztással és a betűk tetszőleges nxxfiflkálásának lehe¬ 
tőségével (kövér szedés, outline. duplaszéles/magas, árnyék 
stb.) is kitűnik. A Pagefox a „kistestvérének" minden elemét 
(jelkészletek, grafikák) föl tudja használni. Ehhez a két prog¬ 
ramhoz számtalan plusz grafika és jelkészlet kapható már. 

Mindazok számára, akiknek az eddig említett kommersz 
szoftverek drágának minősültek volna, alternatívaként rendel¬ 
kezésükre áll a Publish 64. Ezt a programot a 64’er Magazin 
1988. novemberi száma közölte le a Hónap Listájaként, azaz aki 
hajlandó bepötyögni, a füzet árában (6,50 márka) kaphat egy jó 
nyomtatóprogramot. 

A Publish 64 program komfortos szöveges editorja erősen 
emlékeztet a „Mastertext" szövegszerkesztőére. A „gyárilag" 
beépített grafikus program inkább egy minimális megoldás, 
a legfontosabb funkciók azonban (pl. vonalhúzás, zoom) meg¬ 
vannak. Bár az alapgondolat (szovegirás a szöveges editorban, 
ennek a grafikus tárolóba való „nyomtatása", majd a grafikus 
tároló papírra vetése, valamint egyéb tulajdonságok is. mint a 
két 640x400 képpontos féloldal kezelése) emlékeztet a Pnnt- 
foxra, hamar észrevehetők a különbségek is. Például csak zoom 
(nagyítás) üzemmódban van mód egy féloldal négy grafikus 
képernyőjét görgetni, cserébe viszont nincs szuks^ bonyolult 
számításokat végezni a szöveges layouthoz. A Publish 64 ese¬ 
tében „szöveges boxokat" helyezünk el a képernyőn, ahová 
elosztjuk a megirtakat. A nyomtatás meggyőző l^et, de az 
erősen függ a használt jelkészletektől. A GEOS-ból „lopott" 
karakterek úgy-ahogy megfelelnek, a Printfox jelkészletekhez 
írandó konvertálóprogram bizonnyal megoldaná a problémát. 

A nyomtatórutin maga hasonlít a Printfoxéhoz. Kétszer nyom¬ 
tatunk egy sort, miközben a második előtt egy aprócska soreme¬ 
lés történik. Jelenleg a Publish 64 csak Epson és kompatibilis 
gépekre irt nyomtatórutinokkal rendelkezik. 

Amikora nyomtatóprogramokról beszélünk, meg kell említeni 
egy két szövegszerkesztő programot, amelyek ugyan régebbiek 
mint a Pagefox, de meg vannak áldva néhány figyelemre méltó 
tulajdonsággal. A nevezett két program a Fontmaster II és a 
Fontmaster 128. A Fontmaster II inkább egy jó szövegszerkesztő 
program HiRes grafika nyomtatással, a Fontmaster 128 pedig 
inkább egy nyomtatóprogram. Bár a felhasználónak lehetősége 
van mintegy 128 nyomtatómeghajtó és mintegy 20 interfész 
típus közül válogatni, a nyomtatóillesztés mégis sok fejfájást 
okoz. (Ez a Newsroom szindróma; a megajánlott interfészek 
Európában ismeretlenek.) Mindkét Fontmaster program pre- 
wiev („megtekintés") funkcióval dolgozó szövegszerkesztő, ezt 
azonban szokatlan módszerrel valósítják meg. Tulajdonképpen 
a magtekintés során a munkánkat HiRes grafikaként „nyomtat¬ 
juk" sorról sorra a képernyőre. A Fontmaster II a végeredményt 
csak sejteti a képernyőn, míg a Cl 28-as változat a későbbi 
munkáról egy meglehetősen egzakt képet ad. 

Ha szöveg és grafika keveréséről van szó, a Fontmaster II 
elbújhat. A ráfordítás mértéke nem áll arányban az eredmény¬ 
nyel. A Fontmaster 128 azonban négy egyszerű parancsot bocsát 
a rendelkezésünkre, amelyekkel akár képernyő méretű grafiká¬ 
kat lehet befűzni a dokumentumba. A nyomtatás minősége 
összevethető a Pnntfoxéval, a program súlypontja azonban 
inkább a szövegszerkesztésen van. semmint a szoveggraflka 
keverésén. 

A lapzártáig a Fontmaster utód még nem állt a rendelkezésre. 
A forgalmazó állítása szerint a „Phoenix, das Textwunder" 
(Phoenix, a szövegíró csoda) nevű program hamarosan kapható 
lesz. Ez a program átdolgozott Fontmaster változatok egyesítése. 
Egyébként igen elte°jedL és a vevőket meglehetősen bosszantó 
rossz szokás, hogy a termékeket a megjeler>és előtt hónapokkal 
már hirdetik. 
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RÖVIDEN. TÖMÖREN 


Annak ellenére, hogy az „ősapa", a Pnnt Shop már csak az 
USA-ban kapható, a Printmaster pedig teljesen eltűnt, a C64-es 
nyomtatóprogram-helyzet elevenebb, mint valaha. A News- 
room szép, átgondolt program borzalmas nyomtatási minő¬ 
séggel. A Print- és a Pagefox az Igen jó nyomtatási képpel győ¬ 
zik meg az embert a viszonylag komfortos kezelés mellett. A leg¬ 
döntőbb pluszpont azonban a nyitott koncepció, amely úgy a 
gyártónak, mint a gépi programozásban jártas felhasználónak 
lehetővé teszi a program bővítését saját igényekhez való illesz¬ 
tését. Ha a ráfordításokat az eredményt és az árat figyelembe 
vesszük, a Printfox a legjobb választás. Még egyszerűbb a dol¬ 
gunk a Publish 64-gyel, amely az alulkínálhatatlanul olcsó ára 
mellett nem is ad rossz nyomtatási képet. Itt problémát csak 
a nem Epson kompatibilis nyomtatókhoz, és a szokásos szöveg/ 
/grafika formátumokhoz való illesztés jelent Ugyanez érvényes 
a Fontmaster ll-re és a 128-ra, bár ezek közül utóbbi meggyőző. 

A piac mozgásban van, de azért áttekinthető. Gyakorlatilag 
mindenféle nyomtatási kívánsághoz megtalálhatjuk a megfelelő 
programot. Ha a nyomtató és a program összhangban van, 
akkor a papírra vetett eredményből nem is gondolnánk, hogy 
„csak" egy C64-es rejtőzik mögötte. A nyomtatóprogramok 
szép jövő előtt állnak, a C64-esről már nem is beszélve. 


VERSENYEN KÍVÜL 


A példátlan: 

Egy termék több szempontból is kiesik a körből, és ez a 
„Technicus". Ezen a néven egy nyomtatóonentált program- 
csomagot árulnak, ahol az egyik figyelemre méltó tulajdonság 
a meglepően jó NLO írásminőség. Ennek elérése céljából egy 
gépi kódú programot és a kívánt jelkészletet a C64-es RAM-jába 
kell Imi, amely azután — pl. szövegszerkesztővel elkészített — 
szövegeket grafikává konvertálja, s a csatlakoztatott nyomtató 
segítsi^ével papírra veti. Itt (a használt szövegszerkesztőtől 
függően) kompatibilitási problémákra számíthatunk. Éppen 
ezért érdemes a Vizawrite-ot használni, mert ehhez a program¬ 
hoz egy külön Technicus változat létezik. Utóbbival a szövege¬ 
ket automatikus sorkizárással is elkészíthetjük. 

Ha egy jó, mechanikusan is megfelelő 9 tűs printert feltéte¬ 
lezünk, akkor az írás minőségét tekintve a Technicus program 
az összes itt megemlített nyomtatóprogramot lazán zsebrevágja, 
bár a kínosan lassú szovegnyomtatás békáját is le kell ekkor 
nyelnünk. A szépírás-meghajtókon kívül különböző nyomtató 
segédprogramok, hardcopyrutinok is rendelkezésre állnak, ame¬ 
lyek miatt a Technicus program megérne egy külön misét is. 

Nem konkurencia: 

Az utóbbi időben két további nyomtatóprogram gazdagítja 
a német piacot. Az egyik a „Designmaker". Ez a program a maga 
45 márkás árát tekintve jutányos, és emellett meglehetősen jó 
nyomtatást készít A kezelés azonban annyira txwyolult hogy 
egyelőre csak kevesen barátkoztak meg vele. Egy másik program 
az ár szempontjából veri az összes többit A „Create Pagel" 
program csupán 19 márka. A kezelés tekintetében ez a program 
egy ötlettel jobb, mint a Designmaker. bár előbbi valamivel 
jobb minőségű eredményt ad. 

Sem a Designmaker, sem a Create Pagel nem tudnak elég 
meggyőzőek lenni, az alacsony ár ellenére sem. főleg a bonyo¬ 
lult kezelés és a hiányzó WYSIWYG funkció miatt. 


INFÖRMÁCIÓK: 


Printshop (49,95$): Csak az USA-ban kapható 
Broderbund Software. 17 paul Drive, San Rafael, CA 94903 
USA 

Printmaster (Plus): Már nem. illetve nem kapható. 
Newsroom (89 márka): 

Rushware, Bruckweg 128—132, D—4044 Kaarst 2 
Printfox (98 márka) és Pagefox (248 márka): 


Scanntronik, Parkstrasse 38, 0—8011 Zorneding 
Publish 64: 

6,50 márka újságárban, 88/11 -es 64'er Magazin 
29,90 programszerviz lemezen, Markt 4 Technik Verlag AG, 
Unternehmensbereich Buchverlag, Hans-Pinsel-Str. 2. 
D-8013 Haar 

Fontmaster 11/128 (98—96 márka): 

Raab Bürotechnik, Friedhofstrasse 36, D—8605 Hallstadt 
Designmaker (44,90 márka): 

Romám Hoffmann, Mondorfer Str. 9., L—5562 Remich. Luxem¬ 
burg 

Create Pagel (19 márka): 

Hard- und Software Vertrieb Thorsten tavid, Webschulstrasse 
44. D—4050 Monchengladbach 1 
Technicus (39 márka): 

Thilo Hermann, Poststrasse 6, D—7321 Bortlingen 


KI VÖLT GUTENBERG? 


Johannes Gutenberg 1397-ben született, ő a könyvnyomtatás, 
pontosabban a „könyvnyomtatás öntött, rrwzgatható betűkkel" 
feltalálója. Gutenberg Friel Gensfleisch mainzi patrícius fía volt 
akit a „zum Gutenberg" nevű házáról neveztek el. Gutenberg 
1434 és 1444 kozott Strassburgban élt 1448 után ismét Mainóban. 

Kölcsönnel finanszírozta a latin „Gutenberg Biblia" nyom¬ 
tatását amelyből ma még 47 darab létezik. A biblianyomtatás 
után Gutenbergnek 1445-től pénzügyi gondjai voltak, 1458-ban 
ez aktákba is került 1465-ben a mainzi érsek udvarába vette 
Gutenberget ezzel biztosítva jövőjét. Gutenberg 1468. február 
3-án halt meg Mamzban. 

1900-ban alapították Mainóban a Gutenberg múzeumot (a 
nyomtatás művészetének világmúzauma). 
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HIRDETÉS 


OLIVETTI M/15 
IBM PC-XT kompatibilis 
hordozható számítógép! 


Műszaki 


jellemzők 


Beépilelt NiCd akkumulálor (6 órás (olyamalos üzem) 
2 (Jb 3.5"-os, egyenként 720 Kbyle-os floppy drive 
25*80 karakteres LCÜ kijelző, CGA emulációval 
Külső 5.25"-os floppy csatlakozási lehetőség 
I8088 processzor (4.77 MHz órajel) 
RS-232 és CENTRONICS Intertace 
512 Kbyte RAM 
Súly; 5.7 kg 

Tartozékok: 


MS 


DOS version: 3.20 
diagnosztikai lemez 
Dokumentáció 
Válltáska 


Ára egy év garanciával: 

150.000Ft+ÁFA 


L\ 




1136 Budapest, Sallai Imre u. 6 
Tel.: 310-776,315-136 
Tx: 22-6986 novir h. 

Fax: 530-605 


Imre u. o. 

A S wrÁST£ctlNiK/V BE.LVAR.0SA 
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omolyan veendő fenyegetés! 


szaiiLL^gepes 

vírusok 


A vírusprogramok egyre in¬ 
kább fenyegetik a számítógé 
pékét. A tömegtájékoztatási 
eszközökben az „ártalmatlan 
számsorok"-tól a „szisztema¬ 
tikus gyilkosok"-ig mindent 
hallhatunk. S a C64-es sem 
marad ki ebből. 

Egy pénteki napon történt, 
13-án. Amikor a naptárra pil¬ 
lantottam, mindjárt tudtam: 
„Ma vigyázat!" Hogy a várható 
szerencsétlenséget elkerüljem, 
elhatároztam, hogy a napot 
zárt helyen, a számítógépem 
mellett töltöm el. Minő balga¬ 
sági Mert miközben a géppel 
dolgoztam, egyszerre elkezdett 
a képernyő kerete vadul villog¬ 
ni, majd a következő szöveget 
kaptam^ 

DR.DR.STROBE PAPA 
HACKER WAS HEREI 
ALSÓ STARRING GARFIELDI 
HALLÓ DICKERCHEN. DIES 
IST EIN ECHTER VÍRUSI 
SERIALNO.: 18 
(Azaz: Halló, kövérke. ez egy 
igazi vírus I) 

Ml történhetett? Ez egy vírus 
volna? A gépem talán beteg? 
A kikapcsolás vajon segített 
volna-e a bajon? 

Nos, valóban egy számítógé¬ 
pes vírus jelentkezett be az 
említett esetben. A számító¬ 
gépes vírusok olyan különleges 
programok, amelyek gondos¬ 
kodnak a maguk sokszorosítá¬ 
sáról. és eközben észrevétlenül 
bejutnak a számítógépbe és az 
adathordozókra. Ezek azután 
akár hosszabb ideig is ott vá¬ 
rakozhatnak. Mikor végül ak¬ 
cióba lépnek, a katasztrófát 
nem lehet elkerülni, hacsak a 
vírus nem jóindulatú. 

Egy ilyen jóindulatú vírussal 
fertőzött programot a májusi 
számban Mini-Vírus néven ad¬ 
tunk közre. Ez a vírus csak 
BASIC programokhoz „ragad", 
és csak a SAVÉ utasítás hasz¬ 
nálatakor szaporodik. A vírus¬ 
mentesítés ebben az esetben 
nem okoz gondot. Könnyen 
észrevehető a fertőzés is A 
Mini-VIrus példáján azonban 
számos virusprogramozási fo¬ 
gást lehet tanulmányozni. 


Az ártalmatlan vírusok úgy¬ 
nevezett „akciómagja" veszély¬ 
telen, azaz nem történik adat¬ 
vesztés. bár a vírus maga sza¬ 
porodik (továbbterjed). Vannak 
nak olyan vírushoz hasonló 
programok is, amelyek nem 
sokszorozódnak. Egy ilyent a 
89/2. számban adtunk közre 
„Szovőpók a képernyőn" né¬ 
ven. A nevezett pókprogram¬ 
ban időről időre leereszkedik a 
képernyőn egy pók, ami eleinte 
talán vidám, de később egyre 
inkább bosszantó. 


AZ IDŐZÍTETT 
_ BOMBA _ 

Mindezzel szemben áll a Bay- 
rische Hackerpost (BHP) társa¬ 
ság vírusprogramja (a BHP 
vírus, lásd lentebb), amely a 
kellemetlenebb, és inkább a 
veszélyesebb kategóriába tar¬ 
tozik. Az ilyenfajta vírusok két 
részből állnak. Az első. a „sza¬ 
porodási rész" gondoskodik ar¬ 
ról, hogy a vírusprogram min¬ 
den elérhető adathordozóra rá¬ 
kerüljön. Eme tevékenysége 
közben a vírusprogram a még 
nem fertőzött adatállományo¬ 
kat keresi. Ha talál egy ilyet, 
akkor letárolja magát a lemezre 
(vagy a PC-k esetében) a fix 
lemezre. Ott azután ügyesen 
beilleszti magát a directory és 
a fertőzött program közé. A di¬ 
rectory az adott állományokról 
„létfontosságú" adatokat tar¬ 
talmaz. Például azt. hogy áll 
az adott file a lemezen. Ezt az 
úgynevezett directory mutató 
bán kódoljuk, amely mint egy 
nyíl irányul az adott állomány¬ 
ra. A vírus a szaporodási ciklu¬ 
sában lemezre írja magát és 
eközben a még „egészséges" 
program directory mutatóját 
úgy alakítja át. hogy az észre¬ 
vétlenül előbb mindig a vírusra 
irányul. A most már fertőzött 
program esetében tehát előbb 
mindig a vírust és csak azután 
az adott programot hívjuk be. 

Egy veszélyes vírus második 
részét akciórésznek nevezzük. 
Az a felelős a számos változta¬ 


tásért. Ez az a rész. amely 
mondjuk az adatok visszahoz- 
hatatlan törléséért felel, ame¬ 
lyik formatálja a lemezt vagy a 
fixlemezt amelyik a saját vagy 
más érdekében visszaél az 
adatállományokban rejtőző in¬ 
formációkkal. Megváltoztathat¬ 
ja a programokat úgy, hogy 
azok az adatok kimentése he¬ 
lyett törlik azokat, stb. A ví¬ 
rusok akkor lépnek akcióba, 
ha bizonyos feltételek adottak. 
Vagyis a számítógépes vírusok 
időzített bombakéntmúkodnek. 
Hogy a bomba valamely nap¬ 
tári időpontban (dátumellen¬ 
őrzés) vagy egy adott (relatív) 
idő eltelte után (a vírus x-edik 
fölhívása) robban, az mindegy. 
A „ketyegés" ideje alatt a ví¬ 
rusnak épp elegendő ideje van 
arra. hogy az adott rendszer¬ 
ben elterjedjen. Számos rend¬ 
szer fut még rendesen, közben 
pedig már rég fertőződött. Egy 
nap azonban fölrobban a bom¬ 
ba. 

Ezeket a gyilkos programo¬ 
kat vírusnak nevezték el. mert 
azok pontosan úgy viselked¬ 
nek. mint a biológiai ekviva¬ 
lens: Ellenőrzés nélkül szapo¬ 
rodnak. információkat változ¬ 
tatnak meg. és a „gazdaállat" 
(értsd: számítógép és prog¬ 
ram) nélkül nem életképesek. 

A BHP VÍRUS 


A legismertebb C64-es virus 
a BHP vírus, amelynek funkción 
keresztül szeretnénk a műkö¬ 
dését ismertetni. A „Baynsche 
Hackerpost" (röviden BHP) egy 
müncheni számítógépes klu¬ 
bot mindenki kinevette 1985- 
ben, amikor a tagok azt állítot¬ 
ták, hogy „minden számítógé¬ 
pen lehets^es vírusokat prog¬ 
ramozni, a házi számítógépe¬ 
ken ((^. Atari 800 stb.) is". 
Hogy a kételkedőknek a torkára 
fagyasszák a nevetést, a BHP 
tagjai nekiálltak egy olyan ví¬ 
rust fejleszteni, amelyik ren¬ 
delkezik egy veszélyes vírus 
minden tulajdonságával, de 
kárt nem okoz. A vírusnak fel¬ 
adata. hogy ellenőrzés nélkül 


szaporodjon, és rejtőzzön el a 
számítógépben és a lemeze¬ 
ken. Mindezeket a célokat si¬ 
került megvalósítani a BHP 
vírusban! Ezek mellett a prog¬ 
ram resetálló, azaz akkor is a 
gépben marad, ha azt hard- 
vagy szoftveres módon alap¬ 
állapotba visszük. A vírust a 
(264-esből csak a gép kikapcso¬ 
lásával lehet eltávolítani. A le¬ 
mezeken azonban megmarad. 

A BHP vírus akciórésze nagy 
vonalakban abban áll. hogy 
a fönt leírt szöveget megjele¬ 
nítse. Ennél a fajta vírusnál az 
utolsó sor is feltűnő: 
SERIALNO.: agenerációsszám 

A generációs szám adja meg 
a vírus által okozott fertőzések 
számát Ez azt jelenti, hogy 
minden egyes fertőzésnél (to¬ 
vábbterjedésnél, szaporodás¬ 
nál) ezt a számot megnöveljük. 
Nálam tehát a vírus 17 utódot 
produkált már. A fonti szöveg¬ 
kiadás után azonban tovább 
lehet dolgozni, egészen a kö¬ 
vetkező bejelentkezéséig. 

Alapjában két BHP vírust kü¬ 
lönböztetünk meg: 

1. változat: A vírus egyetlen 
egy alkalommal jelentkezik be, 
és azután többet nem lép ak¬ 
cióba. 

2. változat: A vírus szabályta¬ 
lan időközökben újra és újra 
bejelentkezik. 

Mivel a második változat sok¬ 
kal elterjedtebb, ajánlatos azt 
(és minden más vírust) azonnal 
a bejelentkezése után eltávo¬ 
lítani. Használjuk ehhez a 89/5. 
számban adott virusgyilkos 
programot. 

Nézzük meg közelebbről a 
BHP vírus szaporodási mecha¬ 
nizmusát. Az aktiválás után a 
vírus számos olyan tárolócella 
értékét változtatja meg, ame¬ 
lyek programrészekre irányul¬ 
nak. Ezek úgynevezett operá¬ 
ciós rendszer vektorok (LOAD, 
SAVÉ, Break, NMI, BASIC me- 
legmdltás). 

Ezeknek a tárolócelláknak a 
megváltoztatásával az összes 
műveletet ellenőrzik a vírusban 
lévő rutinok, s csak ez után haj¬ 
tódnak végre valójában. A vírus 
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tehát megszerezte magának a 
gépünket és titokban dolgozik 
is. Ha floppy LOAD és SAVÉ 
műveleteket hajtunk végre, ak¬ 
kor elindítjuk a vírus akcióré¬ 
szét és az szaporodni kezd. 

A BHP vírus előbb kikeres 
magának 9 szabad blokkot a le¬ 
mezen, bemásolja magát oda. 
s a korábban említett módon 
átalakítja a directory mutató¬ 
kat úgy, hogy azok szépen órá 
irányuljanak. A vírus osztó¬ 
dott... A kilenc fölhasznált 
blokk a directoryban nem jele¬ 
nik meg, az tehát egyszerűen 
„eltűnt". 

Egy olyan vírust programoz¬ 
ni, amelyik eszerint a séma sze¬ 
rint dolgozik, igazából nem ne¬ 
héz. Alfréd Poschmann, a64'er 
Magazin szerkesztője szerint 
„ezt bárki meg tudja tenni, aki 
két-három éve programoz As¬ 
semblerben a C64-esen." E ví¬ 
rusban a gonoszabb kortár¬ 
saink, akik maguk nem képesek 
ilyet készítem, átírhatják az ak¬ 
ciórészt, mondjuk egy lemez- 
formatálásra. Egy ismert számí¬ 
tógépes magazin nemrég vl- 
rusprogramozási tanfolyamot 
hirdetett meg a C64-esre. Na¬ 
gyon reméljük, hogy ezeket 
csak jó cél érdekében használ¬ 
ják, és nem születnek emiatt 
új. veszélyes vírusfajták. 

SZÁMÍTÓGÉPES 

BŰNÖZÉS 

VÍRUSOKKAL 

A PC-k világában még ennél 
is tovább mennek. Létezik egy 
úgynevezett „Vírus Konstruk 
ciós Készlet" Nightmare Soft 
ware (Rémálom Szoftver) né¬ 
ven. Ennek a készletnek a célja 
megismerkedni a vírusokkal, 
hogy veszély esetén cselekedni 
lehessen. A saját fejlesztésű 
vírusokhoz készített leírások¬ 
kal — egy specifikus vlrusgyil- 
kos programmal — „bárki föl 
tud ismerni egy vírust és tudni 
fogja, mit tegyen az ellen", 
mondta Ralf Burger adatbiz¬ 
tonsági szakspecialista az AP 
(Associated Press) hírügy¬ 
nökségnek adott interjújában 
1988 márciusában. A Night¬ 
mare Software-rel kapcsolat¬ 
ban figyelmeztetés is él: „Ez a 
program nem játékszeri A vele 
való munka nem veszélytelen." 
Ezenkívül nem vállalnak felelős¬ 
séget. A jogi védelem érdeké¬ 
ben a vevőnek alá kell írnia 
egy papírt, hogy tisztában van 
a német buntetőtörvénykonyv 
303a és 303b paragrafusaival. 


Ugyanis az adatok jogellenes 
manipulációját és a számitó¬ 
gépes szabotázst akár ót évig is 
terjedő szabadságvesztéssel 
sújthatják. 

A vírusokat néha politikai cé¬ 
lokra IS használják. Néhány év¬ 
vel ezelőtt az USA-beli Dela- 
ware Egyetemet egy vírussal 
zsarolták meg. A vírus a beje¬ 
lentkezésekor 2000 dollárt kért, 
amelyet egy pakisztáni szám¬ 
lára kellett átutalni. Az ígéret 
szerint ebben az esetben az 
egyetem egy viruskiller progra¬ 
mot kapott volna a fertőzött 
adatállomány „fertőtlenítésé¬ 
re" (Süddeutsche Zeitung 1988. 
június). Vajon a vírusok fenye¬ 
getése a 90-es évek bűnözését 
vetíti elénk? A Wiesbadeni Bun- 
deskriminalamt (BKA, Szövet¬ 
ségi Bűnügyi Hivatal) infor¬ 
mációi szerint 1987 ben és 1988- 
ban nem jelentettek „vírusos" 
számitógépes bűnügyi esetet 
az NSZK-ban. De hogy a víru¬ 
sok ennek ellenére nagy kárt 
okozhatnak, azt egy USA-beli 
eset bizonyítja: Egy egyetemis¬ 
ta az ország hatezer igen fontos 
számítógépét bénította meg, 
koztuk a NASA és a védelmi 
minisztérium gépeit is. 

A vírusoknak az ipari kém¬ 
kedésben is nagy szerep jut. 
De ezektől a manipulációktól 
a normál felhasználó — hála 
Istennek — távol van. A C64-es 
tulajdonosokat egyelőre csak a 
BHP vírus bejelentkezései za¬ 
varhatják. De nagyon kell vi¬ 
gyázni. elméletileg olyan víru¬ 
sok is létezhetnek, amelyek tör¬ 
lik vagy meghamisítják az ada¬ 
tokat. 

HOGYAN “ 
SZABADULHATOK 
MEG 

A VÍRUSOKTÓL? 

Némely vírushoz készült spe¬ 
ciális virusgyilkos program. A 
BHP vírust például a májusi 
számban közreadott vírusgyil¬ 
kossal lehet megsemmisíteni. 
Sajnos, azonban nincs minden 
fertőzés esetére alkalmas „fér 
tőtlenltő", hiszen a vírusok sa¬ 
ját jellemzőkkel és mintával 
rendelkeznek, és azok kozott 
az ismert vírusgyilkosok kozott 
is vannak olyanok, amelyek nem 
száz százalékosak. 

Biztos módszer csak egy van: 
Az adott lemez formatálása. 
Ennek a hátránya persze az, 
hogy ezzel nemcsak a vírust, 
de a lemezen álló összes ada¬ 
tot és programot is megsemmi¬ 
sítjük. 


HOGYAN LEHET 
VÍRUSOKAT 
„BESZEREZNI”? 

Főleg az úgynevezett kalóz¬ 
másolatok fertőzöttek. További 
potenciális fertőzési lehetőség 
van a távközlésen keresztül 
(TAF) beszerzett és a Public 
Domain programokban. A nagy 
cserevá^rokat is jobb elke¬ 
rülni, mert ott egy vírus szél¬ 
sebesen elterjedhet De sajnos 
egy csak eredeti gyári gyári 
szoftvereket felhasználó sem 
lehet száz százalékos bizton¬ 
ságban. Így például 10 (XX) (tíz¬ 
ezer) darab Atari ST-re Irt 
„GFA BASIC 3.0" programle¬ 
mez fertőződött egy vírussal, 
amelyek közül 1500-at el is ad¬ 
tak, adta hírül a CT számitó¬ 
gépes magazin a 88/7. számá¬ 
ban. Ebben az esetben a gyártó 
felel. Alapvetően el kell kerülni 
az idegen lemezek használatát. 
(Gondoljunk arra. hogy azok ví¬ 
rusokat rejthetnek I 

VÉDEKEZHETEK? 
HOGYAN _ 

A vírusok ellen általános /é- 
delem és tanács tulajdonkep 
pen nincs. Minden lemez, ame¬ 
lyet nem a saját kezünkkel fór 
matáltunk. lehet fertőzött. Ep 
pen ezért csak saját lemezek¬ 
kel dolgozzunk. A legjobb, ha 
ezeket elzárjuk, ha nem hasz¬ 
náljuk őket vagy hosszabb ideig 
távol vagyunk. 

A napi munkáról készített 
biztonsági másolatok csökken¬ 
tik a fertőzés veszélyét. Soha ne 
foglalkozzunk kalózmásolatok 
kai, mert ezek igen gyakran 
„fertőzöttek". 

Senki ne dolgozhasson fel¬ 
ügyelet nélkül a számítógé¬ 
pünkkel. Számos ember talál 
élvezetet abban, hogy ember¬ 
társai lemezei közé vírust esem 
pész. 

A TÖRVÉNY VÉDI 
AZ ADATOKAT 

Az NSZK parlamentje 1986- 
bán megszavazott egy torvényt 
a számítógépes rendszerek és 
adatállományok védelmére: Az 
idegen számítógépes rendsze¬ 
rekbe való behatolás és az ada¬ 
tokkal való manipuláció bün¬ 
tethető. 

A torvény vonatkozik mind a 
programozó által közvetlenül 
végrehajtott manipulációkra, 
mind a vírusokkal végrehajtott 


közvetett szabotázsra. Ugyan¬ 
akkor rendkívül nehéz egy gyil¬ 
kos vírus szerzőjét megtalálni. 
A keresés hasonlatos a „tű és a 
szénakazal" ismert példájához. 

Hogy a károkat megelőzzék, 
hat USA-beli szoftveres cég 
megalapította a „Software 
Development Council"-t (SDC, 
szoftveres fejlesztő egyesület). 
Michael Odawa, az alapítóik 
egyike állást foglalt a vírusok¬ 
kal kapcsolatban: „A számító- 
gépes vírus nem tréfadolog. 
Egy számitógépes vírusnak 
nincsen semmilyen jó oldala. 
Ha egy vírus behatol egy kór¬ 
ház számitógépes rendszeré¬ 
be, akár egy páciens halálát is 
okozhatja, a szükséges gyógy¬ 
szerek megkeverésével, vagy 
hogy ö nem a megfelelő műtő¬ 
asztalra kerül." Az ilyesmiket 
meg kell akadályozni. Az első 
lépés a törvényalkotásban még 
nyitott kérdési lezárása. Az 
SDC három tervezetet javasol: 
I.KXX) dollár büntetés, vagy 
három hór^api elzárás egy ada 
tokát károsító vírus fejleszté¬ 
séért. 

2.10 000 dollár büntetés és egy 
év elzárás az olyan adatkáro- 
sltó vírus kifejlesztéséért, amely 
a nyilvános segélyszolgálatokat 
és a biztonságot veszélyezteti. 
3. Tíz évi elzárás egy számító¬ 
gépes vírus bármilyen életve¬ 
szélyes tevékenységéért. 

(A Commodore Computing 88/ 
/10-es számából.) 


VÍRUS ADTA 
MATT 
6000 

SZÁMÍTÓGÉPNEK 

1968. november 2-án, szer 
dán. megrendült az amerikai 
számítógépes világ. Egy vírus 
6000 számítógépet bénított 
meg. Ezek között megtalálha¬ 
tók voltak az ország legfonto¬ 
sabb rendszerei is. SzárrKis 
cég, egyetem és laboratórium 
termináljai merevedtek le. azok 
vagy nem reagáltak a bevite¬ 
lekre. vagy azokra értelmetlen 
válaszokat adtak. Még az US- 
Navy (haditengerészet) pa- 
rancsrroki központját a Law- 
rence Livermory Laboratories-t 
(ez az amerikai atom- és SDI 
fegyvereinek fejlesztőhelye) és 
a NASA-t sem hagyta érintet¬ 
lenül a vírus. 

A vírus fejlesztőjét azóta is¬ 
merjük már. Róbert Morris Jr., 
aki doktori disszertációját írja 
a Cornell Egyetemen (New York 
állam), a számítógépes törté- 
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nelemben a hatását tekintve 
eddigi legnagyobb kárt okozó 
programjának szerzője. 0 rakta 
be a vírust az ARPANET háló¬ 
zatba. amely mintegy 50 000 
számítógépet foglal magába 
Morris ezzel azt akarta bebizo¬ 
nyítani, hogy egy vírus képes a 
legjobban védett számítógépes 
hálózatba is bejutni és ott ész¬ 
revétlenül dolgozni. 

Egy beviteli hiba okozta azt. 
hogy a vírus „ahelyett, hogy 
egy rendszerben csak egyszer 
szaporodjon, ott állandóan rep¬ 
rodukálta magát". A felhasz¬ 
nálók ezzel a vírust az egész 
országban szétszórták. Mivel 
a fertőzés exponenciálisan nö¬ 
vekedett, a nagyszámítógépek 
kapacitása is hamar kimerült. 
Ez okozta a rendszerösszeom¬ 
lást Ennek ellenére a vírus 
nem volt szándékosan rossz¬ 
indulatúra programozva, mert 
minden adat változatlan ma¬ 
radt Dean Kraft a Comelli 
Egyetem informatikusa meg¬ 
erősítette a Spiegelnek adott 
interjújában „Morris jó szán¬ 
dékait". „Számára borzasztóan 


egyszerű lett volna igazi káro¬ 
kat okozni. Akár egy két plusz 
sor is gondoskodhatott volna 
arról, hogy mindenhol minden 
tároló törlődjön." 

INFORMÁCIÓK 
A PROFIKNAK 

Amikor egy BHP vírussal fer¬ 
tőzött programot betöltőnk, a 
mellékelt tárolókonfiguráció áll 
elő. LIST kiadása után (ezt 
azonban nem nagyon szokták 
megtenni) a vírus hírt ad ma¬ 
gáról: 

1987 SYS PEEK(43)-l-256x 
PEEK(44)-)-48: VÍRUS 

Ez azonban akkor már nem 
igaz, ha a vírus már aktív álla¬ 
potban van a tárolóban. 

Ha most a programot RUN- 
nal elindítjuk, a SYS parancs 
kiszámítva relatív módon elin¬ 
dítja a vírust. (A 2097-es címen, 
ha a BASIC start a szokott 
2048-as címnél áll.) A SYS uta¬ 
sítással elindít egy gépi kódú 
programot, azaz itt a BHP ví¬ 
rust A fönti „relatív" szó azt 


jelenti, hogy a program kezdő¬ 
címe független a BASIC terü¬ 
let kezdőcímétől. 

A vírus további lépéseit len¬ 
tebb folyamatábrán mutatjuk 
be. Eközben egy olyan tároló¬ 
konfiguráció áll elő, mint amit 
az 1-es ábra mutat: 

A vírus az 1/0 tartomány 
alatti RAM-ba másolja magát 
az 53248-as (SDOOO) címre. Ez 
a tartomány „kívülről" igen ne¬ 
hezen elérhető, a BASIC 2.0 
számára pedig egyáltalán nem 
hozzáférhető. Ezután a gonosz¬ 
ság eltolja a felhasználói prog¬ 
ramot annak eredeti helyére. 


a 32768-as címen (S8000) létre¬ 
hozza a resetvédelmet (CBM 
80 jelzés). Ahhoz tehát hogy 
a vírust eltávolítsuk a környe¬ 
zetünkből, meg kell vonni tőle 
az életelemet. Azaz a számító¬ 
gépet mindig kajíKSoljuk kil 
Az 1-es ábrán fönt láthatjuk 
a fertőzött program betöltése¬ 
kor előálló tárolókonfigurációt. 
Az egyetlen különös^ a nor¬ 
mál állapothoz képest, hogy a 
felhasználói program kb. 2300 
byte-tal arrébb lett tolva. Az 
így keletkező „üres" területen 
áll a vírus, amelyet a RUN be¬ 
adásával azonnal életre hívunk. 


1. ábra. A BHP vírus által előidézett tárolófoglaltság 

programkód 
12 7 

3 4 6 6 

0 1024 2048 32768 40960 

49152 53248 57344 65535 

1. nulláslap 

2. képernyő 

3. BASIC interpreter 

4. szabad tárolóterület 

5.1/0 tartomány: ez alatt a vírus 

6. kernel/operációs rendszer 

7. a rését védelem 

• 

vírus programkód 

1 2 

1/0 

3 4 tartomány 5 

1 0 1024 2048 kb. 4300 40960 

49152 53248 57344 65535 | 

1. nulláslap, stack, vektorok 

2. képernyő 

3. BASIC interpreter 

4. szabad tárolóterület 

5. kernel/operációs rendszer 

- 

Egy fertőzött program betöltésekor először minden rendben van: 

A programot kb. 2300 byte-tal eltoltuk, a nnég nem aktivizált 
vírus az eredeti BASIC terület elején áll. Egy aktív vírusnál 
a program a normál területen áll. a vírus pedig az 1/0 tartomány 
alatt van. A rését védelmet a 32768-as címen ($8000) találhatjuk. 


2. ábra: A BHP vírus működé¬ 
sének folyamatábrája 



A BHP vírus inicializálásakor 
az először magát helyezi biz¬ 
tonságba (bemásolja magát a 
$0000 „alá"). Ezután megkí¬ 
sérli a normál állapotot szimu¬ 
lálni. A rendszer ellenőrzését 
azonban a vírus természetesen 
magánál tartja. 
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PROGRAM 



80 karakteres 
szövegszerkesztő 


Szövegmozgatás 

ESC^ kurzor jobbra: a teljes szöveg 2 karakterrel jobbra lép 
ESC f kurzor balra; a teljes szöveg 2 karakterrel balra lép 
ESC+ >vagy. bili.; a teljes szöveg 10 karakterrel jobbra lép 
ESC+ <vagy. bili.: a teljes szöveg 10 karakterrel balra lép 
ESC+ kurzor fel: a teljes szöveg az adott ponttól egy sorral fel¬ 
felé tolódik 


A program laponként! levél megírására alkalmas. A képernyőn 
írás közben egy sor max. 80 karaktert tartalmazhat úgy, mint 
nyomtatáskor. A sorhosszúság a program elején. i las kooben 
is állítható. Ha 80 karakternél kevesebbet kívánunk megjelení¬ 
tem (margó), akkor a kiirt szöveg ennek megfelelően középre 
rendeződik. Egy levéloldal max. 63 soros lehet Ebből a kép¬ 
ernyőn egyszerre csak 21 sor látható. így egy nyomtatási oldal 
három képernyőre oszlik. Bár a program a grafikus képernyőt 
használja, a gépikódú átpakolások gyorsan mozgatják a kép¬ 
ernyőket A program sokoldalú, jói kezelhető, amint az az aláb¬ 
biakból is kitűnik. 

Kurzormozgatás 

Oldalra léptetéskor a kurzor a lapszéleken nem ugrik át új 
sorba, de laptetőhoz, vagy a lap aljához érve a képernyő előre- 
hátra lapozödik. Beírásnál a margónak megfelelően lép új sorba 
a kurzor. 

F2; a sor elejére állítja a kurzort 
F5: a sor végére állítja a kurzort 
F3: kurzor jobbra 10 karakterenként 
F6: kurzor balra 10 karakterenként 
F7: kurzor fel 5 karakterenként 
F8: kurzor le 5 karakterenként 
RETURN: ugrás új sor elejére 
Képernyő lapozása 
FI: lapozás előre 
F4; lapozás hátra 
Törlés — beszúrás: 

Az eredeti funkció szerint [INST—DEL gomb]. (Csak az adott 
sort csúsztatja I) 


ESC+ kurzor le: a teljes szöveg az adott ponttól egy sorral lefelé 
tolódik 

Egyéb ESC funkciók 

ESC 4- F8: a programkezelő segédtábla képernyőre íratása 
ESC-I- s; a 63 soros lapoldal adatainak kimentése 
ESC+ 1: a szöveg adatainak visszatöltése 
ESC+ p: a szöveg kinyomtatása (A program mind a képernyő, 
mind a nyomtató esetén csak a magyar ékezetes kisbetűket 
használja normál, nem NLO üzemmódban.) 

ESC-l- a: a szöveg visszaírása a grafikus képernyőre (Ellenőrzés¬ 
re használható. STOP esetén GRAPHICi:GÓTO360 beütése 
után a program folytatható.) 

ESC-(- r: a program újraindítása teljes törléssel 
ESC+ h: sorhosszúság újbóli beállítása 
Megjegyzés: Ha valaki a progranrat magnóval kívánja hasz¬ 
nálni, akkor a név után álló .8-at át kell Imi ,1-re a mentés¬ 
beolvasás programsoraiban. 

Program listák 

1. betöltő és indító segédprogram 

2. BASIC program 

3. MONITOR gépi kódú lista: 

$1000—$13FF új karakterkészlet 
$1400—$1572 átpakoló rutinok 

A programot kis képernyős tv-n vagy monitoron célszerű 
futtatni, mert a nagy méretű képernyőn a karakterek nehezebben 
kivehetőek. 

A leírás is ezzel a szövegszerkesztővel készült. 

Lörentei János 


l RÉM 

O 2 rém ♦ C- UJ-ifiG GORíiZrtM>1?1 » 

3 RÉM 41 S20VEGSZERK. IMOMO PUJS/4 ♦ 

4 RÉM ♦ RROGRHM- LOREHTEl Jrtt4iJ3 * 

O 5 RÉM 4l4i4i4i#44i4i4H*»4u*i*4(4i4(4i4l4(4(»*4í4l4l*4i4iif4i*4<» 

^10 C0L0R4, l > COLOK0 / l > CiDUOR l / 2 

20 K.EV 1, " LOrtO •• * CHR» C 34 > -*-" 32 . S2. GÉP 1" -t-CHR* C 34 > -*•" , 8,8 “ -rCHR* < 13 > •«- “ MEU " -^CHR.* <. 13 ) 

21 KEVa, “LOFlO'‘-*-CHR»<'.:34)-*"S2.S2.BRS. "■t-r.:HR»<34>-»^" , l3)-*-“RiJN"-^CHR»< 13> 

^ 25 PRIHT"LOfiO - RUM< F l -*^ F2" 

30 POKEOEC < " 2C “ > , ÜEC <. “ 80 " > 

^ 40 POKEOEC<•■8000">.0 _ 

O 50 NEW _ 


O RERD'i’. 



O 

O 

O 
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PROGRAM 



Q: ffoo 00 00 ff 00 fi 


>1000 00 00 00 00 00 00 00 00 

^ >1008 00 00 eO 20 eO aO eO 00 

>1010 60 80 aO aO aO aO eO 00 

>1018 00 00 eO 80 80 80 eO 00 

q> 1020 20 20 aO aO aO aO aO 00 

>1028 00 00 aO aO aO 80 aO 00 

>1030 00 cO aO 80 cO 80 80 00 

O>1038 00 00 aO aO aO aO 20 aO 

>1040 80 80 aO aO aO aO aO 00 

>1048 40 00 cO 40 40 40 aO 00 

O>i050 20 00 60 20 20 20 20 aO 

>1058 80 80 aO aO cO aO aO 00 

^>1060 40 40 40 40 40 40 60 00 

^>1068 00 00 aO aO aO aO aO 00 

>1070 00 00 cO aO aO aO aO 00 

Q >1078 00 00 aO aO aO aO aO 00 

>1080 00 00 aO aO aO aO 80 80 

>1088 00 00 aO aO aO aO 20 20 

Q >1090 00 00 aO aO 80 80 80 00 

>1098 00 00 aO 80 aO 20 aO 00 
>10a0 40 40 aO 40 40 40 60 00 
O>10a8 00 00 aO aO aO aO aO 00 
>10b0 00 00 aO aO aO 40 40 00 
>10b6 00 00 aO aO aO aO aO 00 
O>10c0 00 00 aO aO 40 aO aO 00 
>10c8 00 00 aO aO aO aO 20 aO 
_>10d0 00 00 aO 20 40 80 aO 00 
O>i0d8 aO 80 80 80 80 80 aO 00 
>10a0 00 00 00 00 00 00 00 00 
^>10a8 aO 20 20 20 20 20 aO 00 
^>10f0 00 00 00 00 00 00 00 00 
>10f8 00 20 40 fO 40 20 00 00 
O>1100 00 00 00 00 00 00 00 00 
>1108 40 40 40 40 00 00 40 00 
>1110 aO aO aO 00 00 00 00 00 
0>1118 00 50 fO 50 50 fO 50 00 
>1120 40 aO 80 aO 20 aO 40 00 
^>1126 aO aO 20 40 40 80 aO aO 
fJ>1130 00 30 50 60 bO aO dO 00 
>1138 40 40 80 00 00 00 00 00 
^>1140 40 40 80 80 80 40 40 00 
^>1148 40 40 20 20 20 40 40 00 
>1150 00 00 00 40 40 00 00 00 
0>1158 00 40 40 aO 40 40 00 00 
>1160 00 00 00 00 40 40 80 00 
>1168 00 00 00 aO 00 00 00 00 
O>1170 00 00 00 00 00 40 40 00 
>1178 10 20 20 40 40 80 80 00 
>1180 40 aO aO aO aO aO 40 00 
0>1188 40 cO 40 40 40 40 aO 00 
>1190 aO 20 20 aO 80 80 aO 00 
r,>1196 aO 20 20 oO 20 20 aO 00 
>llaO 80 80 80 aO aO 20 20 00 
>lla8 aO 80 80 aO 20 20 aO 00 
O>llb0 aO 80 80 aO aO aO aO 00 
>llb8 aO 20 20 40 40 40 40 00 
>llcO aO aO aO aO aO aO aO 00 
0>llc6 aO aO aO aO 20 20 aO 00 
>lldO 00 00 40 00 00 40 00 00 
_>lld8 00 00 40 00 00 40 80 00 
O>lle0 00 20 40 80 80 40 20 00 
>lla8 00 00 aO 00 aO 00 00 00 
^>llfO 00 80 40 20 20 40 80 00 
^>llf8 60 90 10 20 40 00 40 00 
>1200 00 00 00 fO 00 00 00 00 
O >1200 00 00 00 fO 00 00 00 00 
>1208 aO aO aO aO aO aO aO 00 
>1210 cO aO aO cO aO aO cO 00 
0>1218 aO 80 80 80 80 80 aO 00 
>1220 cO aO aO aO aO aO cO 00 
>1228 aO 80 80 aO 80 80 aO 00 
O>i230 aO 80 80 aO 80 80 80 00 
>1238 aO 80 80 aO aO aO aO 00 
^>1240 aO aO aO aO aO aO aO 00 
^''>1248 eO 40 40 40 40 40 aO 00 



O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

0 

o 

o 

o 

o 

o 

o 

o 

o 


>1250 60 20 20 20 20 20 cO 00 

O >1258 aO aO aO cO aO aO aO 00 

>1260 80 80 80 80 80 80 aO 00 

^ >1268 aO aO aO aO aO aO aO 00 

>1270 90 90 dO dO bO 90 90 00 

>1278 aO aO aO aO aO aO aO 00 

O >1280 aO aO aO aO 80 80 80 00 

>1288 60 90 90 90 90 aO 50 00 

>1290 aO aO aO cO aO aO aO 00 

O >1298 aO 80 80 aO 20 20 aO 00 

>12aO aO 40 10 40 40 40 40 00 

>12a8 aO aO aO aO aO aO dO 00 

O >l2bO aO aO aO aO aO 40 40 00 

>12b8 aO aO aO aO aO aO aO 00 

^ >12cO aO aO 40 40 40 aO aO 00 

^ >12c8 aO aO aO 40 40 40 40 00 

>12dO aO 20 20 40 40 80 aO 00 

O >12d8 40 40 40 fO 40 40 40 40 

>12aO 80 40 80 40 80 40 80 40 

>12a8 40 40 40 40 40 40 40 40 

O >12fO 00 70 90 50 50 50 90 00 

>12f8 10 10 30 30 70 70 fO fO 

>1300 00 00 00 00 00 00 00 00 

O >1308 20 40 00 eO 40 40 80 00 

>1310 00 00 00 00 fO fO fO fO 

>1318 fO 00 00 00 00 00 00 00 

O >1320 00 00 00 00 00 00 00 fO 

>1328 50 aO 00 aO aO aO aO 00 

_ >1330 aO 50 aO 50 aO 50 aO 50 

>1338 80 80 40 40 20 20 10 10 

>1340 00 00 00 00 00 00 00 00 

>1348 fO fO aO aO cO eO 80 80 

>1350 10 10 20 20 40 40 80 80 

>1358 oO eO cO fO fO cO cO cO 

O >1360 10 20 aO aO aO 80 aO 00 

>1368 40 40 40 70 70 00 00 00 

>1370 00 aO 00 aO aO aO aO 00 

O >1378 00 00 00 00 00 00 fO fO 

>1380 30 40 aO 20 aO aO aO 00 

^ >1388 60 60 60 fO fO 00 00 00 

^ >1390 00 00 00 fO fO 60 60 60 

>1398 30 30 30 fO fO 30 30 30 

f-v >13aO 00 aO 00 aO aO aO aO 00 

>13a8 40 40 00 aO aO aO aO 00 

>13bO 20 20 40 aO aO aO aO 00 

O >13b8 fO fO 00 00 00 00 00 00 

>13o0 fO fO fO 00 00 00 00 00 

>13c8 00 00 00 00 00 fO fO fO 

O >13dO 00 00 00 00 00 00 00 00 

>13d8 50 aO 00 aO aO aO aO 00 

_ >13aO 30 30 30 00 00 00 00 00 

O >13a8 20 20 20 aO aO 00 00 00 

>13fO eO cO cO 00 00 00 00 00 

O >13f8 00 00 00 00 00 00 00 00 

>1400 78 8d 3f ff bl 5a 91 58 

>1408 c8 dO f9 a6 5b a6 59 bl 

O >1410 5a 91 58 ca dO f2 8d 3a 

>1418 ff 58 60 a5 5a 91 58 c6 

>1420 dO f9 a6 59 a5 5a 91 56 

O >1428 ca dO f2 60 a6 25 a5 00 

>1430 a2 00 bd 00 11 9d 00 17 

>1438 a8 aO 08 dO f5 a2 00 bd 

O >1440 00 17 4a 4a 4a 4a 9d 00 

>1448 17 e8 aO 08 dO fi a2 00 

^ >1450 bd 00 11 Id 00 17 9d 08 

^ >1458 17 a8 aO 08 dO f2 60 00 

>1460 00 a9 10 8d 34 14 8d 52 

O >1468 14 a9 00 8d 33 14 8d 51 

>1470 14 8d 3f ff a2 00 bd 00 

>1478 a4 8d da 14 20 d9 14 ad 

O >1480 05 15 8d 10 17 a8 bd 00 

>1488 a4 ca 8d da 14 20 d9 14 

>1490 ad 05 15 8d 11 17 8d 3e 

O >1498 ff ad 11 17 48 a9 00 85 

>14a0 7e 68 Oa 26 7e Oa Oa 26 

^ •■14a8 7a 3d 33 14 a5 7a 6d 34 

>14bO 14 8d 34 14 ad 10 17 48 
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PROGRAM 



.>14b8 

a9 

00 

85 

7e 

68 

Oa 

26 

7e 

>14c0 

Oa 

Oa 

26 

7e 

8d 

51 

14 

a5 

>14ce 

7e 

6d 

52 

14 

8d 

52 

14 

20 

O >14d0 

30 

14 

20 

08 

15 

60 

00 

00 

>14d8 

00 

a9 

20 

c9 

al 

bO 

Od 

c9 

>14e0 

60 

bO 

10 

c9 

40 

bO 

13 

c9 

O >14e8 

20 

bO 

12 

60 

38 

e9 

00 

8d 

>14f0 

06 

16 

60 

38 

e9 

80 

8d 

05 

>14f8 

15 

60 

38 

e9 

40 

8d 

05 

15 

^ >1500 

60 

20 

d9 

14 

00 

20 

00 

00 

>1508 

a2 

00 

bd 

08 

17 

8d 

00 

90 

fv >1510 

20 

19 

16 

e8 

eO 

08 

dO 

f2 

^ >1518 

60 

a9 

01 

18 

6d 

Oe 

15 

8d 

>1520 

Oe 

15 

90 

03 

ee 

Of 

15 

60 

O >1528 

00 

00 

8d 

3f 

ff 

a9 

00 

8d 

>1530 

Oe 

15 

a9 

40 

8d 

Of 

15 

a9 

>1538 

00 

8d 

77 

14 

8d 

87 

14 

a9 

O >1540 

90 

8d 

78 

14 

8d 

88 

14 

78 

>1548 

20 

61 

14 

a2 

00 

a9 

01 

18 

>1550 

6d 

77 

14 

8d 

77 

14 

ed 

87 

O >1558 

14 

90 

06 

ee 

78 

14 

ee 

88 

>1560 

14 

e8 

eO 

02 

dO 

e7 

ae 

78 

>1568 

14 

eO 

a4 

dO 

da 

ed 

3e 

ff 

^ >1570 

58 

60 

00 

00 

00 

00 

00 

00 

>1578 

00 

00 

00 

00 

00 

00 

00 

00 



<^10 

keyl, chr$(4): key4, chr$(5) 

O 

20 

key2, chr$(6): key5, obrÍ(7) 


O 30 

key3. chr$(8): key6, chr8(9) 

o 

40 

key7, cbr$(10): keyS, cbré(ll) 

50 

pokell7,255: itoto200 


0 60 

Bsbapels6,x,y,X ■♦■3,y ■•■7: return 

o 

70 

sabapejB$,xx,yy,xx *3,yy +7: return 


60 

CabapelsS.x, y, 1: retum 


0 90 

gabapejs9,xx.yy, 1: retum 

o 

100 

bb =tb *21:cl =tl:o2 =ol -«'bb:cc =(1 



-2) *tb *21 •♦•t2: go*ubll90: retum 


^ 110 

bb =tb *21:cl =(1 -2) *tb *21 ♦t2:c2 

o 


=el +bb:ec =tl: retum 


Ol 20 

cs =y /kh -4:c* =x /8:co =c* *8: 



retum 

u 

130 

print cbr$(147) 


0140 

cbarl,3,4,“80 karakteres szovegszer 
kesBto“ 

o 

150 

obarl,5,10,“adja meg a sorhosszusag 


O 

ot!“ 

o 

160 

cbarl,5,11,“30 - 80 karakter “ 


170 

print: print: print: inputsb 


'^180 

ifsb <30 orsb >80 gotol30 

o 

190 

ko =(80 -ab) /2:kkX =ko:k* =79 -ko: 


o 

retum 

o 

200 

colorO,!: color4,1: colorl,2 

210 

gosubl30: grapbicl,!: cbarl,5,2,“80 


ű 

karakterea sz[C= Hlvegszerkeszt 
[C= G)“ 

o 

220 

et =0:bb =20480:cc =16384: goaubl370 


0230 

et =32:bb =8192:cc =36864: gosubl370O 

240 

poke740,16 


^250 

1 =2:kb =8:ka =32 


'^260 

tr = dec(“9000“) 

o 

270 

drawl,0,28 to320,28 


O 280 

forz =0 to320 step40 


290 

drawl,B,27 toz,29: next 

VJ 

300 

drawl,319,27 to319,29 


0310 

cbarl,37,2, “-“ rigbt$( str${l -1) 

.1) 

o 

320 

ti = dec(“2500“):tb =320 


0 330 

t2 = doo(“4000“) 

o 

340 

bt =“ “:k =4:x =kk* *4:y =ka 


O 350 

'^360 

box.x,32,x >3,39,1,1 

ifaat - e“ tben forz =1020 to60 

o 


atep -100: vol8: aoundl,z,l: next:a 


O 


o 


o370 

XX =x:yy =y:vs* =0: get keyat:a = 
asc(at) 

O 

380 

vol3: ifx <kX *4 -32 tben soundl,80 


o 

0,2: goto400 

o 

390 

vol6: soundl,900,2 


400 

ifa >31 anda <128 goto6(X} 


0410 

ifa =29 tbenu =1: goto700: ramjobb 

o 

420 

ifa =157 tbenu =1: goto730: rembal 


430 

ifa =145 tbenu =1: goto760: remle 


^440 

ifa =17 tbenu =1: goto790: remfel 

o 

450 

ifa =20 gotol780 


o 

ifa =148 gotol690 

o 

^470 

ifa =13 tbenx =kkX *4:y =y >kb: 
gotol020 

0 480 

ifa =27 gotol040: remeacfunkciok 

o 

490 

a =a -3 


500 

on(a) goto540,550,520, 530, 560, 570, 5 


O 

80,590 

o 

510 

goto600 


520 

gotol(X>0: remsoreleje 


^530 

gotolOlO: remsorvege 

o 

540 

goto830: remlapozalore 


q550 

goto930: renlapozvisaza 

r\ 

560 

u =10: goto700: reajobb 


570 

u =10: goto730: reabal 


0560 

u =5; goto760: reale 

o 

590 

u =5: goto790: remfel 


600 

obarO,0,0,at 


0610 

aabapest,0,0,3, 7 

o 

620 

gabapaBt,x,y 


630 

BBbapeÍBt,x >k,y, x >k >3,y >7 


^640 

a =x /4:b =y /kh -4 

o 

650 

X =x >k: ifx >4 *kX tbenx =kkX *4:y 


o 

=y +kh 

o 

660 

gshapeiat,x,y, 1 


670 

poketr >a >1680 *(1 -2) >b *80, aac 


O 

(at) 

o 

680 

ify >200 -8 goto850 


690 

goto360 


O700 

XX =x:x =x >k *u:yy =y 

o 

710 

ifx >316 tbenx =x -k *u: goto360 


720 

goto810 


^730 

XX =x:x =x -k *u:yy =y 

o 

740 

ifx <0 tbenx =x >k *u: goto360 


o750 

gotoSlO 

Q 

760 

ify = >kh >ka tbenxx =x:yy =y:y =y 
-kb «u: goto810 


0 770 

ify = <ka tbenxx =x:yy =y: ifi >1 
goto930 

o 

780 

goto810 


O 790 

ify <kh *20 >ka tbenxx =x:yy =y:y = 
y >kh *u: goto810 

o 

^800 

ify = >kh *19 >ka tbenxx =x:yy =y: 


VJ 

ifi <5 goto630 

o 

010 

gosub60: goaub70: goaub80: gosub90 


O820 

goto360 

o 

830 

reaattolteal 


840 

gosub70: goaub90 


^850 

goaublOO 

o 

'-'860 

ifvsX =1 tben goaubSO: gosubOO: 
retum 


O870 

1 =1 >1 

o 

880 

ifi <5 thenhh =th *21:cl =(1 -2) *t 
b *21 >t2:cc =tl:c2 =ol >bh: gosubll 


O 

90 

o 

890 

ifi =5 thenl =4 


900 

charl,37,2, “-“ > rightt( atrtd -1) 


O 

,1) 

O 

910 

y =ka: gosub60: gosub80: goto360 


920 

vaX =1: goto830 


0 930 

reBwttoltea2 

U 

940 

gosub70: goaub90 


^950 

goaublOO:! =1 -1 

o 

0 980 

ifi >1 thenhh =th *21:ol =(1 -2) *t 
h *21 >t2:c2 =ol >bb:cc =tl: goaubll 


o 

90 

c 

970 

ifi =1 thenl =2 
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PROGRAM 




^ 0980 charl,37,2, "-" + right$( str${l -1) ^ 


1620 

,1) +"-" 0 


O 1630 

990 y =ka: gosubSO: gosubSO: goto360 


1640 

O1000 X =kkX *4: gotol020 



1010 x =4 *k*: gotol020 ^ 


O 1650 

1020 gosubSO: gosub70: .gosubSO: gosub90 


1660 

O 1030 goto360 O 


O 1®70 

1040 aat ="e": gata$: ifa$ ="" gotol040 


^ 1680 

^1050 ramcsusztatas 


1690 

'"^1060 ifa$ = ehr$(157) thaneg =8:ek =2: 0 


o 

goto1440 


1700 

Ol070 ifa$ = chr$(29) thaneg =8:ak =2: 


1710 

gotolSOO C) 


O 1720 

1080 ifa$ =“<" ora$ ="," thaneg =40:ek 


1730 

O =10: gotol440: rambalra „ 


_ 1740 

1090 ifa$ r”>“ ora$ thaneg =40:ek ^ 


O 1750 

=10: gotolSOO: raajobbra 


1760 

OllOO ify >32 then ifa$ = chr$(145) then q 



ag =320: ek =80: gotol440 


^ 1780 

qIIIO ify <192 then ifa$ = ohr$(17) then 


1790 

^ eg =320:ak =80: gotolSOO O 


1800 

1120 ifa$ = chr$(ll) goto2230: ramhelp 


^ 1810 

q 1130 ifa$ ="1" goto2010: ramload 


1620 

1140 ifaS ="8" goto2120: rasisava O 


O 1830 

1150 ifa$ ="p"'goto2550: ramnyomtatas 


1840 

O1160 ifa$ ="h" then go8ub920: graphicO: 



gosubl30: graphicl: remsorhossz ^ 


O 1850 

1170 ifa$ ="a" then goto2520: remgraf.v 


1860 

^ isszairas ^ 


^ 1870 

1180 goto360 ^ 


O 1880 

j.^1190 11 =e2 -cl:en =11 +co 


1690 

'^1200 aX =11 /256:a =11 -256 *a* 3 


rt 1900 

1210 bX =(an -a) /256:b =an -256 *bX -a 


^ 1910 

Ol220 cX =(c2 -a) /256:c =c2 -256 *cX -a 


1920 

1230 poke2035,aX +1: poke2036,a 0 


O 1930 

1240 poke91,cX: poke90, c 


1940 

01250 poke89,bX: poke88,b 


1950 

1260 ifa =0 then sys35069: ratum ^ 


O 1960 

1270 sys35061: ratum 



Oi280 11 =c2 -cl » 


^ 1970 

1290 aX =11 /256:a =256 -11 +256 *aX 


O 1980 

„1300 ifa =256 thana =0:aX =aX -1 


1990 

'"'1310 bX =(cc -a) /256:b =cc -256 *bX -a 0 


^ 2000 

1320 oX =(cl -a) /256:o =ol -256 *cX -a 


^ 2010 

q 1330 poka2035,aX +1: poka2036,a 



1340 poka91,cX: poka90,c D 


O 2020 

1350 poke69,bX: poke80,b 


2030 

01360 sys5120: ratum 


2040 

1370 11 =hh -l:aX =11 /256:a =256 -11 +2 ® 


O 2050 

56 *aX 


2060 

Ol380 Ifa =256 thana =0:aX =aX -1 



1390 bX ={co -a) /256:b =cc -256 *bX -a ^ 


O 

„1400 poka2035,aX +1: poke2036,a 


2070 

'"'1410 poke91,at: poka90,et 3 


rt 2080 

1420 poke89,bX: poka88,b 



Q1430 sy85147: ratum 


2090 

1440 ramcsusztatasbalra O 


o 

1450 go8ubl20 



01460 ifx >315 andcs >21 goto360 


2100 

1470 sshapejs$,x,y,x +3,y +7 O 


O 2110 

1480 gshapejsg,x,y,1 


2120 

01490 gosublOO ^ 



1500 cl = dec("4000") +320 *08 +co +{1 - ^ 


O 2130 

2) *21 *320 


2140 

O1510 c2 = deo("8ec0") 0 


0 2150 

1520 cc =ol -eg: gosubl280 


2160 

1530 hh =ag:oc =36504:at =0: go8ubl370 


2170 

'-'1540 gosubllO: go8ubl280 O 


o 

1550 cl = dec("9000") +80 *C8 +80 *21 *( 



0 1-2) +CO /4 


2180 

1560 e2 = dac{"a3b0") O 


O 2190 

1570 hh =e2 -cl:oo =el -ak: gosubl280 



01580 hh =ek:cc = dec("a3b0"):et =32: ^ 


_ 2200 

go8ubl370 


O 

1590 gosubSO: gosubSO: goto360 



Ol600 ramcsusztatas jobbra 


0 2210 

1610 gosubl20 


^2220 


*( 


o 


Ifx >311 andcs >21 gotoSCO 
gosubSO: gosubSO: gosublOO 
cl = dec(”4000") +320 *C8 +co +(1 
2) *21 *320 
o2 = dec(”8eo0") 
oo =cl +eg: gosubll90 
hh =eg:cc =ol:at =0: gosubl370 
gosubllO: gosubll90 
el = dec(“9000“) +80 *C8 +80 *21 
1-2) +CO /4 
c2 = dec(“a3b0”) 
hh =o2 -cl 

cc =cl +ek: gosubll90 
hh =ek:oc tollat =32: gosubl370 
gosubSO ^ 

gosubSO 
goto360 

rambeszuras Q 

ifx <4 goto360 
sshapas$,x.y,x +320,y +3 
sshapalsg,X,y +3,x +320,y +7 O 

gshapas$,x -k,y 
gshapeis$,x -k,y +3 

co =x /4;c8 =y /kh -4:hh =80 -co -1^ 
cl = dac("9000”) +80 *C8 +80 *21 *( 

1 -2) +CO Q 

e2 =cl +hh:oc =cl -1: gosubl280 
pokac2,32 

X =x -k: gato360 q 

rembaszuras 

sshapas$,x,y, X +320, y +3 
sshapais$,x,y +3,x +320, y +7 O 

sshapassg, 16, 0, 19, 7 
gshapes$,x +k,y 

gshapais$,x +k, y +3 ^ 

gshapass$,x, y 

co =x /4 :o 8 =y /kh -4:hh =80 -co 
cl = dao{“9000") +80 *08 +80 *21 
1 -2) +00 

c2 =cl +hh:cc =cl +1: gosubll90 O 
pokacl,32 
X =x +k 

goto360 O 

gosub920: graphlcO: print chr$(147 
): ramload 

charl,5,1,"adabok beolvasása" ^ 

charl,5,3,"1: load " 

charl,5,4,"d: diractory " q 

poke239,0: get keyl$; print: print^ 

ifl$ =”d“ then print chr$(147): 

diractory: poke239,0: get keya$: O 

goto2010 

ifl$ < >"1" then graphicl: goto360 
input" nav";ne$:n$ = chr$(34 ):r$ =0 
chr$(13) 

keyl,"ni0" +r$ +"1" +n$ +ne$ +n$ +'• 
,8" +r$ +"x" +r$ +"gRl:l=2:g02520" ^ 
+r$ 

print: print" fi : 
and 

gosub920: graphicO 
): remsave 
charl,5,1, 
charl,5,3, 
charl,5,4, 
poke239,0: 
ifl$ ="d" 


*{ 


O 


lead' 


print chr$(147 


"adatok kimentése 
"s: savé " 

"d: diractory Q 

get keyl$: print: print 
then print chr$(147): 


poke239,0: get keyaS: O 

' then graphicl: goto360 _ 
':ne$:n$ = chr${34):r$ ='^ 


directory; 
goto2120 
ifl$ < >"s' 
input" név' 
chr$(13) 

key2, "mO" +r$ +"s" +n$ +ne$ +n$ +" (-» 
, 8,9000,a400" +r$ +"x" +r$ +"gRl:g0 
2520" +r$ 

print: print"f2: savé" o 

end 


o 
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PROGRAM 


©2230 

^ 2240 
O 2250 
2260 
„ 2270 
2280 
2290 
O 2300 
^ 2310 
2320 
O2330 
2340 
2350 
O 2380 
2370 

©2380 

Q 2390 

2400 

© 

2410 

©2420 

^2430 

2440 

^2450 

O2460 

2470 

©2480 

2490 

^2500 

©2510 

2520 

p.2530 

^2540 

2550 

O2560 


©2570 


gosub920: graphicO: print chrS(147 
): poke239,0 

charl.O,1,"funkcióbillentyűk 
charl.O,3," fi lapozás előre 
lapozás hatra 
soreleje 
sorvégé 
ugrás jobbra 
ugrás balra 
ugrás le 
ugrás fel 


f4 

f2 

f5 


f7 
■ f8 


charl, 0,4, 
charl,0,5, 
charl,0,6, 
oharl,0,7," f3 
charl,0,8, ~ f6 
charl,0,9,“ 
charl,0,10, 
charl, 23,1," esc uzennnodban: " 
charl,23,3," fi lead adatok 
charl,23,4," f4 savé adatok 
charl,23,5,"help segitseg 

charl,0,12,"-esc kodbil 

lentyuk:-" 

charl,0,14,"s:savé l:load dtdire 
ctory p;nyomtátás" 
charl,0,16," o.fel 
le 

charl,0,17, 
e 

charl,0,18, 

/2 kar. 
charl,0,19, 
a/2 kar. 

charl.O,20," > 

a/10 kar. 
charl,0,21," < 

/lO kar. 

charl,0,22," a 
gráf. kopemyore 
charl,0,23," r 
charl,0,24," h 
llitasa 
poke239,0: get keyhpg 
ifhpS ="a" goto2520 
ifhp$ r"r" then run 
gosub920: graphicl: goto360 
koyl, chr$(4): key2, chr$(6) 
graphicl: cys dec{"152a"): goto880 
get keya$ 

remkodok/magyarekezetesbet. 
ma${l) = chr$(160) + chr$(212) + 
chr$(214) + chr$(213) + chr${184) 

+ chr$(192) 

ma$(2) = chr$(188) + chr$(193) + 
chr$(192) ♦ chr$(193) + chr$(188) 

+ rhr$(192) 


sortolas felfe 


c.le sortolas lefel 
c.bal keptolas balra 
c.jobb keptolas jobbr 
> keptolas jobbr 
< keptolas balra 
adatujrairas a 


újraindítás 
sorhossz ujraa 


0 2580 

O 2590 

© 2600 

© 2610 

^ 2620 
© 

2630 

© 

2640 

O 

2650 
o 2660 


ma$(3) = chr$(184) chrS(212) ♦ q 

chr$(214) ♦ chr${213) + chr$(216) 

+ chr${128) 

ma$(4) = chr$(184) + chr»(194) + Q 
chr${193) + chr$(192) ♦ chr$(186) 

+ ehr$(193) 

ma$(5) = chr$(176) + chr$(202) + © 

ohr$(201) ♦ chr$(200) + chr$(178) 

+ chr$(129) _ 

ma$(6) = chr$(184) ♦ chr$(197) + © 

chr$(196) ♦ chr${197) ♦ chr$(184) 

+ chr9(128) 

ma${7) = chr$(184) * chr$(192) ♦ ^ 

ehr*(194) + ohr${193) + chr$(184) 

> chr$(192) o 

ma$(8) = chr$(128) * chr$(200) *■ 
ohr$(250) > chr$(193) * chr$(128) 

+ chr${128) O 

ma$(9) = ohr9(176) * chr$(200) * 
chr$(202) * chr$(201) -t- ohr$(176) 

+ chr$(128) 0 

olose2: open2,4,7: trap360 
forz =0 to5039:ip$ = chr$( peek(36^ 
'' 864 +z)) ^ 

2670 ifip$ ="tC= A]" orip$ ="[C= S]" or 

O ip* ="[C= D]" orlpS ="[C= F]" orip$Q 
="[C= G]“ then go8ub2700 
2680 print*2,ip$: 

© 2690 next: gotoOÖO O 

2700 k$ =ipS 

^2710 ifk$ ="tC= A]" thenmag =ma${l): ^ 

© goto2800 © 

2720 ifk$ ="[C= S]" thenmag =mag(2): 

goto2800 ^ 

^2730 ifkg ="[C= D]" thenmag =mag<3): ^ 

goto2800 

0 2740 ifkg ="[C= F]“ thenmag =mag(4): (j 

goto2800 

2750 ifkg ="[C= G]" thenmag =mag(5): 

© goto2600 O 

2760 ifkg ="[C= H]" thenmag =mag{6): 

_ goto2800 

©2770 ifkg ="[C= J]" thenmag =mag(7): © 

goto2800 

2780 ifkg ="[C= K]" thenmag =inag(8): 

goto2800 

2790 ifkg ="[C= L]" thenmag =mag(9): 

goto2800 

2800 ipg = chrg(8) -t-mag chrg(15): 
retum 


© 


O 


Q 



A számítástechnikai piacon kibontakozó 
új irányzatok hatására egyre sürgetőbb a 
nyugat európai számltógépgyárak számá¬ 
ra valamilyen együttműködés kialakítása. 
A gyors ütemű műszaki fejlődés miatt kü- 
lon-külon szinte valamennyien stagnálás¬ 
ra, illetve rosszabb esetben veszteséges 
gazdálkodásra lennének kényszerítve. A 
piaci feltételek váratlan keményedésétarra 
vezetik vissza, hogy mindinkább teret nyer 
a szabványosítás, így csökkennek a hard¬ 
verárak. 




Összefogásra 
a\ kényszerülnek 




nyugat-európai 
számítógépgyárak 


A japán és az amerikai nagyvállalatok 
agresszív expanziója miatt számos nyugat¬ 
európai cég eredményei romlottak. A nor¬ 
vég Norsk Data fennállása óta először ez év 
januárjában jelentett veszteséget. A nyu¬ 
gatnémet Nixdorf profitja az egy évvel ez¬ 
előttinek a töredékére zsugorodott és az 
Olivetti igazgatósága is rossz eredmények 
közzétételére készül. A finn Nokia cégnek 
szintén gondjai vannak az Ericssontól át 
vett számítástechnikai részleggel. 


A felsorolt cégek kisebb vagy nagyobb 
mértékben jelen vannak abban a piaci 
szektorban, ahol a legnagyobb arányú vál¬ 
tozás figyelhető meg. Azokról a közepes 
és kisebb kategóriájú számítógépekről van 
szó, amelyeknek az operációs rendszerét 
egyre szabványosabbá teszik. Ennek ered¬ 
ményeként a felhasználók válogatni tud¬ 
nak a szállítók ajánlataiból, kíméletlen ár¬ 
versenyre kényszerítve őket. 

Konkrét együttműködési tervekről még 
nincs hír, a számítástechnikai iparral fog¬ 
lalkozó elemzők szerint azonban elkerül¬ 
hetetlen, hogy az érintett cégek valamilyen 
formában kapcsolatot keressenek. Felté¬ 
telezik például, hogy a Nixdorf partnerra 
talál a brit ICL-ben, amely egyébként a 
nagy számítógépek gyártásában is érde¬ 
kelt Egy másik feltételezés szerint a brit 
cég az olasz Olivettivel, esetleg a nyugat¬ 
német Siemens szel tudna előnyös együtt¬ 
működést kialakítani. (Reuter) 

27 ; JÜLr-AUQUS^T. ^ 



































SZOFTVER 




Bemutatkoznak a 

SYSTEM 

GEORGE 

nyelvoktató programok 


A legutóbbi években a nyelvismeret döntő szerepet kapott 
gazdaságunk fejlődésében. Közismertek azonban mind a nyelv- 
ismerettel kapcsolatos szegényes statisztikai adataink, mind 
a nyelvoktatás, nyelvtanulás problémái. Szükség van tehát olyan 
módszerekre, melyek a hagyományos oktatás hibáit csökkentik, 
netán kiküszöbölik és ezzel a tanulást eredményesebbé teszik. 

A SZOFTVER FEJLŐDÉSE 

Ez a felismerés vezetett ahhoz, hogy 1984 elején a mai, mintegy 
15 szerzőből álló csoport magja, a mikroszámítógépek hazai 
elterjedésével egyidőben, elkezdte a nyelvoktató programok 
fejlesztését. Először az ANGOL—1 program első, technikailag 
kezdetlegesebb változata került kidolgozásra. Már ekkor, de 
később is célkitűzés volt, hogy teljes tanfolyami anyagot kell 
számítógépre vinni. Ez a program nagy sietséggel készült, 
jnivel még a munka közben célszerű volt kipróbálni, hogy meny¬ 
nyire alkalmazható a gyakorlatban. Forgalmazása 1986 júliusá¬ 
ban kezdődött Egyrészt a visszajelzések, másrészt a szerzők 
közvetlen tapasztalatai alapján 1905 közepére elkészült a fejlesz¬ 
tett 2. változat. illeNe az ANGOL-2 és a NÉMET-1, NÉMET-2 
programok. Egyidejűleg megszűnt az ANGOL—11. változatának 
forgalmazása. Ennek felhasználói a 2. változatot 75% árenged¬ 
ménnyel kapták meg. 

A további fejlesztési munkát a FRANCIA—1, majd 1987 köze¬ 
pén a SPANYOL—1, ill. 1987 végén az OROSZ—1 programok 
megjelenése jelezte. Még 1986-ban készült el az ANGOL és 
NÉMET, majd 1988 elején az OROSZ programok hanganyaga. 
Ezzel sikerült olyan komplett nyelvoktató rendszert kialakítani, 
mely mind a magántanulókat, mind a tanfolyami oktatást segí¬ 
teni képes. 

A szerzők 1987 óta foglalkoznak olyan nyelvoktató programok 
létrehozásával, melyek videoműsorral összekapcsolva működ¬ 
nek. Eddig nem sikerült olyan végleges megoldást találni, mely 
mind a technikai, mind a copyright problémákat elfogadható 
költségkereten belül megoldja. A kutatás a legolcsóbb, iskolák 
által IS megfizethető megoldás irányában ma is folyik. 

A programok nyelvi anyagát szaktanárok készítették és lek¬ 
torálták. Az ellenőrzést ezenkívül anyanyelvi lektorok is elvégez¬ 
ték. A hanganyagok elkészültekor megtörtént egy második 
anyanyelvi lektorálás is. A gondos munka és ellenőrzés biztosí¬ 
totta. hogy minimális mértékben fordult elő olyan észrevétel, 
mely a gyakorlatanyagra vonatkozott és javítást igényelt. 

A HARDVER 

A fejlesztés másik vonalát a hardver-oldal jelentette. A prog¬ 
ramok minden esetben először Commodore—64 gépre, mág¬ 
neslemezes. majd 1906-tól kazettás változatban is készültek. 
Az ANGOL—1 program 1. változata ezenkívül megjelent a követ¬ 
kező gépeken is: IBM PC, PROPER—8. SYSTER. LABSYS, 
COMPUT—8, FtOSYTEX, Sinclair Spectrum, Commodore—16. 
Az IBM PC kompatibilis gépekre 1967-ben elkészült az ANGOL 
és NÉMET programok második, majd 1968-ban a harmadik 
változata, mely már NOVELL hálózatban is működtethető. 


Folyamatban van az összes többi program PC-re való alkalma¬ 
zása is. Ez a fejlesztés 1990 elején az OROSZ—1 programmal 
fejeződik be. 

A PROGRAMOK MŰKÖDÉSE 

A programok megegyeznek abban, hogy 

— az alkalmazásra vonatkozó részletes magyar nyelvű tudni¬ 
valók a képernyőn megjeleníthetők vagy printerrel kinyom¬ 
tathatók. 

— két alapuzemmódban működtethetők; ezek a tanuló-gya¬ 
korló és az ismétlő-tesztelő uzemnnód, 

— a különleges karakterek minden nyelvnél, mind a kis-, 
mind a nagybetűk esetében hitelesen jelennek meg. 

Az alkalmazott módszerek tekintetében a programok 3 cso¬ 
portba sorolhatók. Ezek. és főbb jellemzőik a következők: 

1. csoport (ANGOL-1, ANGOL-2. FRANCIA-1. OROSZ-1. 

SPANYOL—1). 

Tanuló üzemmódban 

— az összesen háromféle feladattípus gyakorlatait logikailag 
egymásra épített sorrendben kapjuk, 

— választható automatikus és kézi vezérlés, mely utóbbinál 
magunk állíthatjuk be a feltételeket. 

— meghatározott feladatcsoportonként a helytelenül meg¬ 
válaszolt kérdéseket visszaadja a program, 

— az adott körből nem jutunk ki, míg minden kérdésre helye¬ 
sen nem válaszoltunk. 

— ha a megszabott minimális szintet nem értük el. elölről kell 
kezdeni az adott szakasz feladatainak gyakorlását, 

— válaszadás előtt vissza lehet lépni az előző, már megoldott 
feladatokra azzal a céllal, hogy segítséget kapjunk. 

Tesztelő üzemmódban 

— semmiféle segítség (hibavizsgálat, megoldott feladatok 
visszahívása stb.) nem vehető igénybe. 

— választani lehet, hogy mely fejezetekből, nyelvtani, ill. téma¬ 
körből vagy az egész lemezről kapjuk véletlenszerűen a kér¬ 
déseket. 

— választható az is, hogy esetleg a tanulás sorrendjében le¬ 
gyen előírva a válaszadás. 

Egyébként 

— bármely kérdés félretehető a memóriába, 

— a félretett kérdésekkel a napi gyakorlás végén külön lehet 
foglalkozni, 

— ez a kérdéscsoport, valamint a napi eredménytábla külön 
lemezre is kimenthető és később behívható, 

— a különböző billentyűk használatát ismertető táblázat hív¬ 
ható be. 

— a különféle szolgáltatások (folyamatos eredménymérés, 
időnyilvántartás, hangjelzés stb.) ki- és bekapcsolhatók. 

— a gyakofiatanyag bármely része vagy egésze végigolvas¬ 
ható. a megoldással együtt. 

2. csoport (ANGOL-2-H.I.J). 

Három lemezen nyelvtani, ill. lexikai gyakorlatokat tartalmaz¬ 
nak. 

Működésük jellemzői: 

— A gyakorlás szintválasztással kezdődik. 

— Az anyag megtanulása az első. kezdő szinten történhet. 

— Az ötödik, legmagasabb szinten alig 10 másodperc áll 
rendelkezésre a válaszadásra. 

— A gyakorlatanyag egy-egy lemezen 16 fejezetből áll. 

— A kezdő szinten a kiválasztott fejezet gyakorlatait sorban 
oldhatjuk meg. és segítség is igénybe vehető. 

— A többi szinten két. négy vagy több, esetleg az összes feje¬ 
zetből véletlenszerűen kapjuk a kérdéseket. 

A játékos, versenyszerű programok különösen az ifjúság 
körében népszerűek. 
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3. csoport (NÉMET-I, NÉMET-2). MAGÁNTANÁR 


Három, íll. négy lemezen 12-12 fejezetben (blokkban) tartal¬ 
mazzák a különféle gyakorlatokat. Jellemzőik: 

— Minden fejezet azonos felépítésben 8 programból áll. 

— A gyakorló üzemmódban a program a tanuló (tanár) által 
meghatározott módon adja vissza a kérdéseket, és csak akkor 
enged tovább, ha a bevitt feltételt teljesítettük. 

— A gyakorlatok egyik alaptípusánál négy változat bármely 
variánsa helyes lehet. 

— Ennél a kérdéscsoportnál egyszerre két hallgató is leülhet 
a géphez, és ilyenkor felváltva kapják a feladatokat, és az ered¬ 
ményük elszámolása is külön történik. 

— A másik alaptípusnál egyszerre hat mondat jelenik meg, 
melynek hiányzó részeit egy adott készletből csák egyfélekép¬ 
pen lehet helyesen pótolni. 

— A főnevek nemét gyakorló programban a színek szerinti 
megkülönböztetés és az elhelyezés módja nagy segítséget 
jelent a tanulásban. 

— A főnevek ragozásával kapcsolatos feladatok megoldása 
a végződések begépelésével történik. 

— Az igék alakjait is be kell gépelni a megfelelő program al¬ 
kalmazásánál. 

— A különleges karakterek igen egyszerűen gépelhetők be. 

— A főnevek, igék és egyéb szavak szószedete külön progra¬ 
mokban rendelkezésre áll. 

— Az elért eredmény részben folyamatosan, részben külön 
táblázatban tekinthető meg. ill. behívható. 


A leghasznosabb mind a tanár, mind a tanulók számára, ha 
a tanár rendelkezik egy C—64 számítógéppel és a megfelelő 
SYSTEM GEORGE programmal. Ilyenkor az alábbi alapséma 
szerint folyhat az oktatás: 

Egyszerre 3 tanuló vesz részt az oktatásban. Ezek akár a leg¬ 
különbözőbb tudásszintet képviselhetik, mivel az oktatás telje¬ 
sen egyéni. Egy alkalommal 3 órát vesz igénybe a foglalkozás. 
A tanulók számára az alábbi 3 munkahelyet kell képezni: 



A tanulók óránként váltanak munkahelyet. A számítógépnél 
a tanár által meghatározott módon gyakorolnak vagy beszá¬ 
molnak. A magnetofonnál a beszédértés és helyesírás ellen¬ 
őrzése folyik, egyrészt a programok hanganyagával, másrészt 
a tanár által előirt anyaggal. Ezen a munkahelyen időnként 
más feladatokat is kaphat a hallgató, pl. fordítást. A tanárnál 
a másik két munkahelyen, valamint az otthon végzett munka 
ellenőrzése, a problémák megbeszélése és a beszédkészség 
fokozásy történik. 


TANFOLYAMI OKTATÁS 


MAGÁNTANULÁS 

Tekintettel arra. hogy legtöbb programnak hanganyaga is van. 
a tanári segítség teljesen nélkülözhető azoknál, akik önállóan is 
tudnak tanulni. Mérsékelt tanári felügyelettel azonban mindenki 
eredményesebb, olcsóbban és kevesebb időráfordítással tanul¬ 
hatja a nyelveket, mintha hagyományos tanfolyamra járna. Le 
kell azonban szögezni, hogy — mint mindent—a nyelvet is csak 
komoly munkával lehet megtanulni. A rendelkezésre álló esz¬ 
közök, mint ezek a programok is csak megkönnyíteni és nem 
helyettesíteni tudják ezt a munkát. 

A SYSTEM GEORGE nyelvoktató programok alkalmazására 
renget^ lehetőség van. Lagcélszerűbb először — a hibavizs¬ 
gálat kiiktatásával — az előirányzott napi adagot egyszerűen 
átolvasni. Ezt követheti a hanganyaggal együtt történő olvasás, 
majd a gyakorlatok megoldása, szintén a hanganyaggal pár¬ 
huzamosan. Az elért eredménytől függően ezután szigorított 
feltételekkel addig gyakoroljuk a kérdéseket, míg kielégítő ered¬ 
ményt érünk el. Ha ily módon megfelelő mennyiségű gyakorla¬ 
tot átvettünk, tesztelő üzemmódban végezhetjük annak vizs¬ 
gálatát, hogy mindent kellően elsajátitottunk-e. Munkánk alatt 
összegyűlt néhány probléma, melyeknek nyelv- és nyelvtan- 
könyvben nézünk utána. Ha megoldhatatlan probléma merül 
fel, tanárral kell konzultálnunk. 


Amennyiben a tanfolyamot vezető tanár úgy dönt. hogy a 
SYSTEM GEORGE programokat, mint elsődleges tananyagot 
használja az oktatásban, fenti sémát alkalmazhatja 2, 3 vagy 4 
számítógéppel és magnetofonnal. Ilyenkor sem kell a hallgatók¬ 
nak azorx)s szinten lenniök. Csak az a követelmény, hogy a ta¬ 
nárhoz egyszerre kerülők társalgási szempontból közel azonos 
szinten álljanak. 

Egyébként sokféle megoldás lehetséges. Ezek közül itt kettőt 
említünk: 

1. A tanfolyam a megszokott módon folyik, és a programokat 
csak háttértanulásra használják. A tanfolyam szervezői ebben 
az esetben a számítógépes gyakorlási lehetőséget biztosítják 
a hallgatók számára. Mivel a számitógépes anyagban mindig 
megtalálható az éppen tanult nyelvtan, ill. lexika megfelelője, 
a hallgató minden órára ezzel is felkészülhet és így elmélyíti 
az ismeretanyagot. 

2. A tanfolyamot a tanár úgy irányítja, hogy az órán az általa 
használt nyelvkönyv is és a számitó^pes tananyag is szerepet 
kap. A tanulók tehát nemcsak az órán kívül találkoznak a szá¬ 
mítógéppel. hanem az órán is. A tanár ebben az esetben a szá¬ 
mítógépek és a magnetofonok számától függően a hallgatók 
egy részét folyamatosan beszámoltatja, vagy pl. a külön lemezre 
kimentett nehezen megoldott feladatokból időnként probléma¬ 
órákat rendezhet stb. 



Dr. Vadász György 
közgazdász, 
rendszerfejlesztő 



Vadász György 
nyelvtanár, 

programfejlesztő, programozó 



Rozsnyói Árpád 

mérnök, 

programozó 


JUL»-AUGUSZT. 

















PROGRAM 





Adott esetben a; oktatás, a tanulás optimális lehetőségeit 
a szerzők szívesen megtárgyalják a tanárokkal. Ez a szolgálta¬ 
tásuk ingyenes. 


AZ ÁRAK 

Az alkalmazott árpolitika abból indul ki, hogy a vállalatok sok, 
esetleg több száz dolgozójuk számára és sok évre vásárolják 
a programokat, tehát már a 3. példánynál 75% engedményt kap¬ 
nak a kiinduló árhoz képest (4000 Ft/prg). Amennyiben négynél 
több gépre vagy hálózatban pl. 10 munkahelyen kívánják a prog 


ramokat használni, akkor négy program árát (32 000 Ft) fizetik. 
Az átlagár így 3200 Ft/prg. 20 munkahelyre, ill. hálózatra 8 prog¬ 
ram árát kell fizetni, azaz 48 000 Ft-ot. Ebben az esetben az átlag 
ár 2400 Ft/prg., efölött munkahelyenként 1000 Ft/prg fizetendő, 
tehát az átlagár tovább csökken. 

Ennek alapján érthető, hogy az iskolák, művelődési intézmé¬ 
nyek, magánszemélyek stb. már az első két példány esetében is 
nagy engedményt kapnak. 

Befejezésül csak annyit, hogy ez a bemutatkozás még oldala 
kon át tarthatna. Az érdeklődők számára azonban mind az 
Országos Commodore Egyesület irodája, mind a szerzők szive 
sen állnak rendelkezésre. 



ÉKEZETES C—16 


E cikk tekinthető a „PLUS/4 gép ékezete- 
sitésének (és ezzel együtt a saját karakté 
rek használatának) problémái" elmen, a 
Commodore Újság 1988. decemberi szá 
mában megjelent cikk folytatásának. 

ELÖLJÁRÓBAN 

Lehet, hogy mániákusságnak tűnik, de 
mi magyarok vagyunk, ezért fontosnak 
tartom még a legegyszerűbb magyar nyel¬ 
vű játékprograrnok esetén is. hogy azok 
tényleg magyarul, azaz ékezetes karakte¬ 
rekkel íródjanak. Es itt elsősorban gyer¬ 
mekeinkre, a számítógépeken (is) felnövő 
új generációra gondolok — úgyis túl keve¬ 
set olvasnak, sok televíziót néznek, általá¬ 
ban gond van a helyesírásukkal stb. — 
ezért szinte bűnnek tartom, hogy egyik 
kedvenc játékuk rontja (tovább rontja) ma¬ 
gyar nyelvi ismereteiket. 

Az eddig megjelent szakirodalom nem¬ 
igen foglalkozik részletesen azzal, hogyan 
ékezetesltsuk gépünket ha az nem ékeze¬ 
tes. És ha már ékezetesltettuk, hogyan dol¬ 
gozzunk vele. Jelen cikk azért íródott, hogy 
megkönnyítse a programírók. -fejlesztők 
széles táborának munkáját. 

HOGY A GÉP 

MAGYARUL Írjon 

Szerencsére nem kell karaktereket ter¬ 
veznünk, erre kiválóan alkalmas pl. Mesz- 
lényi Zoltán „Ékezetes betűk a PLUS/4- 


esen" programja, ha azon néhány sort 
módosítunk. 

Az ÚJ ékezetes készlet a PLUS/4 gépen 
is a BASIC munkaterület végére kerül 
(ha nem használ grafikát). Ezt kell elér¬ 
nünk Cl6-on is, ahol a BASIC munkaterü¬ 
let a $4000 címig tart. Ehhez a már idézett 
programban az alábbi módosításokat kell 
végrehajtani: 

OREM SAVE"ékezetes C16/1" — 1988. 
dec. 20. 

10POKE56.56:clr 

20print" <fehér> <torlés> <le> <le» <le> 
<le>«le.<le.td000 d7ff3800 


380 fór 1=16136 to 16351 


410 keyl."poke 65296.192:poke66299,56: 

print chr$(14)"-l-chr$(13) 

420 poke 65298,192 :poke65299.56 
430 print "Ékezetes karakterkészlet": 

440 print" S3800-3FF" 

A program lefuttatása után karakter- 
készletünk a $3800-$3FFF elmekre kerül. 

Megjegyzések: 

1. Meszlényi programjával ellentétben a 
karakterkészlet helyét megadó utasí¬ 
tást azért tettem az FI billentyűre, mert 
ha valaki PLUS/4-en fejleszt C16-os 
programot és programlráis közben vé¬ 
letlenül az Fi ^nkcióbillentyűt nyomja 


meg. zavaros képernyővel a szövegszer¬ 
kesztő jelentkezik be, és addigi mun¬ 
kánk eredménye kárbavész. 

2. Ha biztosak vagyunk abban, hogy csak 
a kisbetűs készletet akarjuk használni, 
akkor a következő utasításokat kell meg¬ 
változtatni: 

10 POKE 56.60:CLR 

20-.TD400 D7FF 3C00 

410,420 sorok: .... POKE 66299,60 
440. sor: PRINT utasításban: $3C00- 
3FFF 

3. Ha a BASIC program mérete nem en¬ 
gedi meg, hogy mindkét karakterkész¬ 
let a RAM-ban legyen és szükségünk 
van mindkét készletre, akkor az ékeze- 
tesítő programban a 2. megjegyzésben 
leírt rriódosítások mellé még tegyük fel 
pl. az F2 billentyűre az eredeti karakter- 
készletet visszaváltó utasítást: 

415 KEY2."POKE54296.196:POKE66299, 
208" 

Az így elkészített készleteket használó 
programokban ajánlatos két rutint ké¬ 
szíteni a karakterkészletek átváltására, 
pl. 

10000 POKE66298,192:POKE 66299,60: 
PRINT CHR$(14): RETURN: nem új 
10010 POKE66298.196:POKE 66299,208: 
RETURN: nem eredeti 

4. Célszerű kimenteni az így kapott karak¬ 
terkészletet (monitor üzemmódban) — 
ekkor ugyanis az ékezetes készlet bár¬ 
melyik BASIC program mellé utólag is 
betölthető (monitor üzemmódban I). Be¬ 
töltés után azonban ne felejtsük el pa¬ 
rancs módban kiadni: 

— BASIC terület végét beállító utasítá¬ 
sokat: 

POKE 56,56 (teljes karakterkészlet 
esetén), illetve 

POKE 56,60 (csak kisbetűs karakter- 
készlet esetén). 

POKE 54.PEEK(56):POKE 52.PEEK 
(56):POKE 51,0; POKE 53,0: POKE 
56,0 


GRAFIKUS KARAKTEREK 
HASZNÁLATA 

Ekezetesített gépen a kisbetűs készlet 
grafikus karaktereinek száma 18-ra csök¬ 
ken. Ez nem jelent problémát akkor, ha 
csak ezeket akarjuk használni. Ha azonban 
ezeken kívül (helyett) más karakterekre van 
szükségünk, már gondban vagyunk. Hely 
zetunk azonban ekkor sem reménytelen, 
mert ha nincs szükségünk az összes gra- 
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fikus karakterre, előre gondosan megter¬ 
vezhetjük, melyiket akarjuk használni és 
. RKor a karakterek csereberélésével célt 
érünk, 

ÉS HA KEVÉS A 18 
GRAFIKUS KARAKTER? 

Természetesen ekkor is van megoldás, 
csak kompromisszumra kényszerülünk; 
elégedjünk meg azzal, hogy programunk 
csak nagybetűket használ. Ekkor csak a 
8 ékezetes nagybetűt kell elhelyeznünk a 
megfelelő billentyűkön, és így csak 8 gra¬ 
fikus karakterről kell lemondanunk. Egy 
ilyen karakterkészlet az „Ékezetek Cl6-ra" 
program 4. készlete. 

Szebb irásképet kaphatunk, ha az ösz- 
szes írásjelet és nem ékezetes kyraktert 
hozzáillesztjük az ékezetekhez. Két ilyen 
karakterkészletet állít elő a „Kis ékeze¬ 
tes C16" program. 

(A fenti trükkök természetesen PLUS/4 
gépre is alkalmazható!) 

ÉS HA AZ ÖSSZES 
GRAFIKUS KARAKTER KELL? 

Újabb kompromisszumokat kötve, erre 
IS van megoldás: szöveget csak a képernyő 
minden második sorába írunk és az efölötti 
sorokban helyezzük el az ékezeteket. Há¬ 
romféle ékezet van a magyarban; a vessző, 
a két vessző és a két pont. Mivel az írás 
jelként használt vessző alkalmas az „egy 
vessző" ékezet írására, így csak két új 
karakterre van szükségünk. Ezeket cél 
szerű két ritkán használt írásjel helyére 
tenni, pl. a szögletes zárójelek ([ és ]) 
helyére. Egy ilyen karakterkészletet állít 
elő az „Ékezetek C16-ra" program is (6. 
készlet). 

ÉS HA PROGRAMUNK MÉG 
EZT SEM ENGEDI MEG? 

(mert szükségünk van a saját karakterkész¬ 
let által elfoglalt helyre isi) 

Ekkor írjunk az előző pont szerint de le¬ 
hetőleg csak olyan szöveget írjunk a kép¬ 
ernyőre, amely az Á, É. 1 ö. Ú magán¬ 
hangzókon kívül más ékezetes magán 
hangzót nem tartalmaz. 

EGY UNIVERZÁLIS 
ÉKEZETESiTŐ PROGRAM, 
MELY AZ ÉKEZETESfTÉSEN 
KiVÜL MÉG SOK EGYEBET IS 
TUD 

Úgy gondoltam, felesleges az eddig le¬ 
írt variációkat külön-külön kis programocs 
kákban megvalósítani. Helyette célszerűbb 
egyetlen univerzális programot készíteni, 
melynek futtatásakor a felhasználó maga 
választja ki a számára szükséges ékezetes 
karakterkészletet. Ez a program az 
„Ékezet Cl6-ra" nevet viseli. 

A program a kívánt karakterkészlet elő¬ 
állítása mellett az eddigi ékezetesltő prog¬ 


ramok funkciói mellett még további szol¬ 
gáltatásokat IS nyújt, nevezetesen: 

— megjeleníti az új(régi) billentyűzetet — 
ezáltal látszik, melyik karakter hová 
került; 

— kívánságra kiírja a képernyőre az ere¬ 
deti, ill. új megjeleníthető karaktereket 
ASCill ill. képernyőkódjuk növekvő sor¬ 
rendjében; 

— visszaállíthatja az eredeti karakterkész¬ 
letet; 

— kiírja a képernyőre az egyes karakterek 
adatait a megfelelő karaktergenerátor¬ 
ból, lehetővé téve azok tanulmányozá¬ 
sát, pl. későbbi átszerkesztés vagy sor¬ 
nyomtatóhoz illesztés céljából. 
Megjegyzések: 

1. Hasznos tanulmányozni a program 
szerkezetét, a program rutinjait. 

2. A program, bármennyire is szerettem 
volna, nem bővíthető tovább egyéb 
funkciókkal, mert különben nem fér el 
Cl6-on. 

3. Igyekeztem a képernyőszövegeket úgy 
kialakítani, hogy azok mindig helyes 
magyarságúak legyenek. E célt szolgál 
ják pl. a különböző karakterkészletek 
változóinak értéket adó rutinok. 


A PROGRAM MŰKÖDÉSE 

A program RUN-nal indul, s rögtön az 

1. menü jelentkezik, mely a karakterkész 
let-választékot sorolja fel. 

1. menü; 

1. $3800-$3FFF: grafikus -I- ékezetes kész 
let 

2. $3QX)-$3FFF; ékezetes készlet 

3. $3C(X)-$3FFF: ékezetes készlet, s emel¬ 
lett elérhető a 

$D(XX)-$D3FF: grafikus készlet 

4. $3COO-$3FFF: grafikus készlet, ékezetes 
nagybetűkkel 

5 $3C00-$3FFF: grafikus készlet kisebb 
ékezetes nagybetűkkel 

6. $3C00-$3FFF: grafikus készlet az éke- 
zetesítéshez -f két új ékezet 

7. $3C(X)-$3FFF: egyéb készlet: ez a pont 
ad lehetőséget egyéb karakterkészlet 
vizsgálatárai 

8. TOVÁBB: át kell lépni a 2. menüre, 
pl. az aktuális készlet vizsgálatához. 

Az 1—6. válasz esetén a program eiké 

sziti a kért karakterkészletet megjeleníti 
a billentyűzetet, majd a 2. menüre adódik 
a vezérlés. 

7-es válasz esetén a program megkér¬ 
dezi, bent van-e a vizsgálandó karakter- 
készlet a memóriában. Nemleges válasz 
esetén befejeződik a program futása, majd 
monitor üzemmódban be lehet tölteni 
az új készletet a $3C00-$3FFF területre; 
ezután a program újraindítható. 

Mivel az 5. készlet a program betöltése¬ 
kor a $3800-$3BFF memóriaterületen van. 
az 1. tószlet előállítása után már nem áll 
rendelkezésre. Ilyenkor a programot újra 
be kell toltenünk. (Érdekes lehet az 5. 
készlet meglétének ellenőrzése is: a prog¬ 
ram betöltésekor a 0. utasításban a 759 es 
memóriacim 0 értéket kap. Az 1. készlet 


betöltése után erre a címre 1-et írunk és a 
0. utasításban a "poke” tokenjét a "RÉM" 
utasítás tokenjére írjuk át. Az 5. készlet 
indításkori helyének megléte egyszerűen 
ellenőrizhető a 759-es cím tartalma alap¬ 
ján. Ennek értéke egy új ékezetes készlet 
betöltése és a program újraindításakor is 
változatlan marad, hisz a 0. utasítás ekkor 
már megjegyzésként értelmeződik.) 

2. menü: karakterkészletek vizsgálatához, 
újraindításhoz, programfutás végéhez. 
Pontjai: 

1. Eredeti ROM karakterkészlet beállítása. 

2. Új karakterkészlet visszaállítása. 

3. ASCII kódokat kiírja a képernyőre. 

4. A kéjjemyőkódokat írja ki a képernyőre. 

5. A karakterkészletet az ASCII kódjukkal 
és képernyőkódjukkal együtt írja ki a 
képernyőre. 

6. A karakterek adatai vizsgálhatók. 

7. Megjeleníthető a billentyűzet. 

8. Újraindítható a program. 

9. Programfutás v^e. 

Karakterek adatai: a 2. menü pontjai közül 
ezt kell részletesen megmagyarázni. Ez a 
rész további menüpontokat tartalmaz. 

1. választás: melyik készlet adatait kérjük; 

1. új készlet 

2. eredeti l.set (grafikus) 

3. eredeti 2.set (kisbetűs/nagybetús) 

4. vissza a 2. menühöz 

2. választás: mely űarakterek adataira va 
gyünk kiváncsiak: 

1. az összes karakterre 

2. egy adott karakterre: ezt a megfelelő 
billentyű lenyomásával lehet majd 
megadni: a karakterek megadását a 
<RETURN> billentyű lenyomásával 
kell befejezni. 

3. intervallumban adjuk mag a karakte¬ 
reket: ekkor a 3. választás után meg¬ 
kérdezi a program, hogy „honnan" és 
„meddig": ezekre a karakterek kép- 
emyőkódjával kell válaszolni. 

3. választás: milyen típusú adatokat sze¬ 
retnénk a képernyőn látni: 

az adatokat a program a megfelelő karak¬ 
tergenerátorból veszi: 

1. decimálisán kérjük az adatokat, vagy 

2. hexadecimálisán, vagy 

3. mindkettőt együtt szeretnénk látni, 
vagy 

4. a decimális és hexadecimális adatok 
mellé a karaktergenerátorbeli képet 
felnagyítva, rajzban szeretnénk látni. 

A PROGRAM SZERKEZETE 

BASIC főprogram: 

9— 10. sorok: kezdőértékadások 
20—360. sorok: 1. menü és vezérlés 
360—430. sorok: 2. menü és vezérlés 
450-7000. sorok: szubrutinok 

Gépi kódú részek: 

$37B2-$37BA: 

Monitor utasításhoz (a karakterkészletek 
másolás rrwnitorban történik; ennek be¬ 
fejezése után az innen a billentyűzet- 
pufférbe másolt karaktereket olvasva 
hajtódik végre a visszatérés a BASIC 
főprogramba). 


31 


JUCF-AUGUSTT 


Cf 





PROGRAM 


& 

$37D5-$37DF; 

ROM olvasó rutin: az eredeti ROM ka¬ 
rakterkész lettxJI egy karakter adatait te¬ 
szi hozzáférhetővé. 

Hívása: SYS14293 
$37E0-$37F8: 

Inditórutin: a BASIC program végét 
állítja be. (Betöltéskor ugyanis a BASIC- 
program vége mutatók a $3C(X) címre 
mutatnak I) 

Hívása: SYS14304 
$36C0-$3797: 

1—4. karakterkészlet új karaktereinek 
adatai 

$3798-$37AF: a 6. készlethez a két ékezet 
és a közte lévő 3. karakter adatai 
$3800$3BFF: 

teljes 5. készlet karaktereinek adatai 
Szubrutinok: 

450—452: eredeti ROM karakterkészlet be¬ 
állítása 

460—465: új karakterkészlet visszaállítása 
470—471: nem létező kód helyett space-t 
írunk majd 

475—477: mindegyik karakterkészletre kö¬ 
zös értékadások 

480—483: minden 2. sorba írjunk? 

485; C“/Shift billentyűk tiltása, engedé¬ 
lyezése 

490: teljes ékezetes készletet előállító rutin 
(1—3. készlethez) 

500—570: ASCII kódokat írja a képernyőre: 
ezen belül: 500: vezérlés. 510—615: egy 
intervallum(sorozat) kiírása. 520—570: 
egy képemé kiírása 

600—675: képemy^ódokat írja a képer¬ 
nyőre; ezen belül: 600: vezérlés. 610— 
615; egy intervallum (egy sorozat) ki¬ 
írása. 620—675: egy képernyő kiírása 
680: „lapozó”-rutin: T billentyű lenyomá¬ 
sára vár 

690; „lapozó"-rutin: T vagy V billentyűre 
vár 

700—780: ASCII és képernyőkódokat együtt 
írja a képernyőre; ezen belül: 700: ve¬ 
zérlés, 710—715: egy intervallum(soro- 
zat) kiírása, 740—780: egy képernyő ki¬ 
írása 

8(X>—805: karakterkészlet adatainak kiírá¬ 
sát vezérli; ezen belül: 800—851: karak¬ 
terkészlet kiválasztása, íll. visszatérés 
855—860: vizsgálandó karakterek kiválasz¬ 
tása 

865—871; adattípus kiválasztása 
873: végrehajtás vezérlése 
875—880: egyedi karakterek rész 
890: a képernyő címsora 
895: eredeti ROM-készlet olvasása (ehhez 
tartozó részek még: 1400—1650 sorok is) 
900—906:1. menűkészltő rutin 
910—913:2. menűkészltő rutin 
950: egy karakter adatainak beírása az új 
karakterkészletbe 

960: COLOR utasítások a képernyő színe¬ 
zéséhez 

970—980; vízszintes scroll-rutin 
1(XX>—1040: változók: kisbetűs/grafikus 
készlethez 

1050—1087: változók: nagybetűs ékezetes 
készlethez 

1100—1130: változók: nagybetűs, grafikus. 


2 új ékezetes készlethez 
1150—1180; változók: eredeti készlethez 
12(X)—1330: billentyűzetet írja a képernyő¬ 
re: ezen belül: 1200—1290: vezérlés, 
1300-1330: teljes fejlécet Ir. 1330: csak 
fejsort Ir 

140(>—1655: karakterkészlet adatait írja ki 
a képernyőre; ezen belül: 1400: teljes 
készlet határainak beállítása 
1410—1440: egy intervallum kiírása, 
1450—1480: egy karakter adatai. 
1500—1520: intervallum megadása (fel- 
használótöl kéri), 

1550: csak karakteradatok kellenek, vagy 
a rajz is?, 

1600—1625: karakter rajzát írja a képer¬ 
nyőre. 

1650—1655: egy byte 1-es bitjeinek he¬ 
lyére * karaktert rajzol 
2000 — 7000 : karakterkészletek előállítása: 
2000-2030:1. készlet 
3000-3030:2. készlet 
4000—4030:3. készlet 
5000-6010:4. készlet 
6000-6010:5. készlet 
7000:6. készlet 

A program összeállítása (nagy gondos 
Ságot igényeli) 

1. Gépeljük be az „Ékezetek Cl6-ra'' BA¬ 
SIC!: programot. Ügyeljünk arra, hogy a 
túl hosszú sorok csak az utasítások 
rövidítéseit használva írhatók bel Igye¬ 
kezzünk a programot pontosan úgy be¬ 
gépelni, ahogy az a listán szerepel (azaz 
felesleges szóközök nélkül és az 1. sor 
kivételével RÉM nélkül): ellenkező eset¬ 
ben a program futása „out of memory" 
üzenettel megszakadhat. 

A SYS-rutinok hívását tegyük REM-be. 
majd próbáljunk ki mindent, amit ilyen 
félkész állapotban is lehet. Ezután ment¬ 
sük ki a programot. 

2. Gépeljük be a gép részeket előállító 
"Ék.C16 gépi" nevű programot. Mentés 
után futtassuk le, majd a futás eredmé¬ 
nyét monitorban mentsük el: 
S"ÉK/1",1,36C0.3800 

3. Gépeljük be a "KIS ÉKEZETES C16" 
programot. Mentés után futtassuk le 
valamelyik, nekünk jobban tetsző válto¬ 
zatra. majd másoljuk át a kapott karak¬ 
terkészletet: 

MONITOR <RETURN. 

T 3C00 3FFF 3800 <RETURN > 

4. Másoljuk hozzá (még mindig monitor 
üzemmódban maradva) a 2. futás ered¬ 
ményét: 

L"ÉK/1"<RETURN. 

Ezután mentsük ki (még mindig moni¬ 
torban); 

S"ÉK/2".1.36C0.3CX)0 <RETURN. 

5. Töltsük be az 1. pontban elkészített 
programunkat, majd toröljük a SYS 
előtti REM-eket. Nézzük meg és írjuk fel 
a főprogram végét jelző mutatókat: 
MONITOR <RETURN> 

M2B 2B <RETURN> — írjuk fel a vissza¬ 
írt 8 értéket. 

Ha a programunkat pontosan úgy gé¬ 
peltük be. ahogy az a listán szerepel, 
akkor a $2D-$2E címeken a $3005 érték 
szerepel. Ha nem, remélhetőleg akkor 


sincs túl nagy baj, csak majd javítanunk 
kell (I. 6. pont). 

6. Még mindig monitor üzemmódban ma¬ 
radva betoltjük a 4. pontban elkészített 
gépi kódú részt. 

Ha a BASIC program mérete más volt, 
akkor javítanunk kell az indltórutint: 

A 37E4 LDA 2 D felírt értéke 
A 37E6 LDA 2E felírt értéke 
Most már kimenthetjük az így össze¬ 
állított programot: 

S'tKEZETEK C16-RA".1.1001.3COO 
X 

Ha jól dolgoztunk, akkor programunk hiba 
nélkül fog működni. Ha mégis javítanunk 
kell, javítás előtt felejtsük el monitorban 
beállítani a $2D-$2E elmekre a BASIC fő¬ 
program végét; a javítás után pedig ennek 
alapján az inditórutin fenti elmeit. 

HOGYAN MENTSÜNK KI 
ÉKEZETES KARAKTEREKET 
HASZNÁLÓ PROGRAMOT? 

1. Ékezetes karakterkészlet nélkül, de ek¬ 
kor a program minden betöltése előtt 
a gépet ékezetesíteni kell. 

2. Az ékezetes készlettel együtt. nxKii- 
torban: 

a) $1001—4(XX) címek között: 

ha BASIC programunk mérete ezt 
igényli, vagy nincs kedvünk „vaca¬ 
kolni" a karakterkészlet ide-oda má¬ 
solásával. (De ekkor ne felejtsük el 
programunk elején beállítani a BA¬ 
SIC munkaterület vége mutatót a 
megfelelő POKE 56,xx utasítással 1) 

b) $1001— .... címek között: 

Ha BASIC programunk jóval rövi- 
debb, mint az ékezetes készlet helye, 
célszerű azt monitorban átmásolni 
programunk mogé. és az így kapott 
rovidebb progranwt kimenteni. 
ekkor a programot úgy kell megírni, 
hogy futásának elején az áthelyezze 
a karakterkészletet a megfelelő 
helyre. 

Egy rövid példa erre: 

— a BASIC program a $1001-$2250 el¬ 
mek kozott van, s az 1. utasítás sor¬ 
száma 10 

— módosítsuk BASIC programunk ele¬ 
jét: 

4 IF PEEK(56)<57 THEN 8:REM prog¬ 
ram újraindításakor már nem kell át¬ 
másolni (és nem is lehet) a karakter- 
készletet 

5 POKE 34.0:POKE 35.64;POKE 36,0: 
POKE 37,44: POKE2035.0;POKE 2036, 
8:SYS51192;REM átmásolás 

6 POKE 55,0: POKE 56,56;POKE53.0: 
POKE 54.56:POKE 51.0;POKE 52,56: 
RÉM BASIC mutatók 

7 POKE 6529e.192:POKE65299.56: 
RÉM karakterkészlet helye 

8 KEYI.’POKE 65298,192:POKE 65 
299,56" + CHR$(13) 

— másoljuk át monitorban a karakter- 
készletet: T 3800 3FFF 2400 

— mentsük ki programunkat monitor- 
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bán az 1001-2C(X) címek között. 

— visszatöltéskor BASIC programunk 
fogja „ékezeteslteni" a gépet. 

— ha a program még fejlesztés alatt áll, 
egy újabb mentés előtt ne felejtsük el 
visszamásolni a karakterkészletet a 


program mögé. Ha a program a javí¬ 
tás során olyan hosszú lett hogy bele¬ 
nyúlna a karakterkészlet helyébe, 
szükség lehet a karakterkészlet he¬ 
lyének mentéskori módosítására a 
program elejének módosításával 
együtt! 


PROGRAM 


Befejezésül 

Csak biztatni tudom az olvasókat, saját 
(ill. gyermekeik) érdekében készítsék el 
már meglévő programjaik ékezetes válto¬ 
zatát. És újabbakat már csak így készítse¬ 
nek. A fenti útmutató elég ahhoz, hogy 
egy így ékezetesített gépen gyorsan „ma¬ 
gyarítani" lehessen a programokat. Higy- 
gyék el, a ráfordított munka sokszorosan 
megtérül majd. Ehhez mindenkinek sok 
szerencsét kíván a szerző. 

Lugosi Antalné 
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0 RÉM SOVE"EK.. C16-GEPI" 

1 RÉM !«I«««»I«!«I«I«W«I*W««|«««|«|««|«WWW«NM«I««W«« 

2 R.EM ♦ C-U JSfiŰ SOR.SZBM ■ Í%Zj * 

3 RÉM ♦ EK.EZETES BETŰKÉSZLETEK CUS-Rfi * 

4 RÉM * - fi PROORfiM GÉPI KODtJ RÉSZÉIT* 

5 RÉM * fiLLITJfi ELŐ * 

6 RÉM * PR.Ot3RfiM> LUGOSI firlTfiLNE * 

7 GOTO 70 

8 RÉM POK.E-OLO RíJTIH r. fi*HOI-IHRM; B»HfiNVfiT) 

9 J-fi-^B-l •FORI-fiTO.J'RERDW»'POK.EI.OECr.W*>iHEXT 

10 RETURH 

67 • 

68 > 

69 RÉM MOHITOR UTfiSITfiS fiOfiTfil 

70 • 

71 fi-0EC<"37B2“>-B- 9>GOSUB9 

74 • 

75 OfiTfiO,58,0.47/CF,32,36/30.0 

77 > 

78 ■ 

79 RÉM UJR.filHOITO RUTIN 

80 • 

81 fi-DEC <“37E0“>■6«25•GOSUB9 

84 ■ 

85 0fiTfi78,80,3F,FF,fi9,05,85,2D,e5,?F,85,3l 

86 OfiTfifi9, .30,85.2E,85,3O,8S. 32,80,3E. FF, 58.60 

97 ■ 

98 • 

99 RÉM ROM-iDLVfiSO RUTIN 

100 fi-0EC<*'3«T35“)-B-ll »GOSiJB9 

101 ■ 

i02 OfiTfifi0,08,Bl,O8,99,OF,0,8e,D0,F8,60 

104 • 

105 > 

106 RÉM 1-3. KfiRfiK;TERK.ESZLET fiOfiTfil 

107 ■ 

108 fi-OEC<"36C0")>B-216<GOSUB9 

109 > 

110 OfiTfiOC,18,00,00,38,18,30,00 

120 OfiTfiC,18,30,18,18,18,30,0,33,66,30,66,66,66,30,0,0,0,0,0.0,0,0,FF 

150 0fiTfi33,66,0,30,66,66,30,0,00,00,33,33,00,00,33,33,1,1,1,1,1,1,1,1,0,0,8,0,00 

.00,33,33 

190 OfiTfiOO,99,33,66,00,99,33,66,03,03,03,03,03,03,03,03 

210 DfiTfiO,18,30,66,7E,66,66,0,0,18,30,66,7E,60,30,0,18,18,18,IF,IF,0,0,0 
240 DfiTfiO,66,0,66,66,66,3E,0,0,0,0,0,0,0,FF,FF,0,18,30,6,3E.66,3£,O 
270 OfiTfiOO,18,TE,60,78,60,7E,00,33,66,0,66,66,66,30.0,66.0,66,66,66,66,30,0 
300 DfiTfi00,66,00,3O,66,66,3O,00,O,18,0,66,66,66,3E,0,0,18,0, :30,66,66,30.0 
330 DfiTfi66,0,30,66,66,66,30,0,0,18,66,66,66,66,30,0,0,18,30,66,66,66,30,0 
360 DfiTfiO1,03,06,60,78,70,60,0,33,66,0,66,66,66,3E,0 

447 ■ 

448 > 

449 RÉM 2 UJ EKEZET 

450 • 

455 fi»OEO <"3798"> > B»24■GOSUB9 

456 ■ 

460 DfiTfiO,0,0,0,66,66,66,0,0,12,30,70,30,62,FO,0,0,0,0,0,0,66,66,0 
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0 POK.E759,0 > K.EV2, “ Pr65298, 196 ■ Pr65299,208 > ?CHR» < 142 ) “ ♦CHR* < 13 > 

i svsi4304 >RÉM"Ékezetek ci6-rr" 

4 P0K.E65298. 196 • POKE65299,208 ■ PR INTCHR* < 142 > 

9 P-0KE55, 190'POKE56/54>POK.E!53, 190■ POKE54,54 • POKE91.190 • POKE52/54 • CLR ■ COLOR0. 15,7 
•COLOR4,15,6 

20 COLORl, 1 <GOSUB452>GOSlJB475<PRlNT"n » C l 6 ETII, )IKEZETESI"ÍI, MTE"1I, « 

SE" 

40 P»<l)-"*3800-»3FFF■ GRRFIKUS ♦ E"H, K^.EZETES"■G»-"MRGVBETUK">X»-“43C00-»3FFF• 


50 F* < 2 > -X*-*-" Emi, »► EZETES K.Emi, MSZLET " • F» < 7 > -X*-*-" EGVEmi, l®"'F*C8)-" TOVRmi, HBB " 

60 F»<3)«F»<2>+RIGHT*<S», ll) + “»O000-»O3FF' GRAFIKUS "■*-CHR»<34) <X*-X*>"GRÁFIKU 
S ♦ " 

70 F*<4>«X»+"Emi, )a<EZETES"+R10HT»<S»,32> + G*>F*<5>-X»-»-"KISEBB Emi, M<. "+RIGHT*<S*, 
30>-fG» 

90 F*<6)-X»*“2 umi, »J Emi, «<EZET“ >X»»"» KEmi, HFEM, VAmi, M-ASSZOAl " •PRINTTAB<;9)L 
EFT»CE*,24> 

100 F»<;0)-"4 LUGOSI-SOFT 4*4 COPYRIGHT 1989 444" 

115 W»»"" 'V*-"" ■L-8>.J1-15>.J2»0>A»1 'B-l *GOSIJB9O0>Q-M■ GOSUe475■ IFQ-8THEN350 

145 IFO»5AMOPEEKX759)>0THEI'«;hAR, 0,24, " MA'R HEM LEHET M l"-»-LEFT»<S*, 19> ' GOSUB680 

■RtJN9 

150 K.A-192‘KB*60'C0LiDR4,15,6>COLOR0,2,7> 1FŰ-7THEM300■ ELSEIFQ-1THENX»-“TO000 07FF 
3800"-GOTO180 

170 IFQ<4THENX»-“TO400 07FF 3<;00" 

175 IFQ>3THENX»-"TO000 03FF 3C00"■rFQ»5THEHX»-"T3800 3BFF 3C00" 

180 PR I NT " naWHttWWW" , X» “ W" • A» 1319' B«8 > L» 14258 > GOSUe950 • POH.E239,9 • M«3N 1 TOR 
260 PRINT" mi"+CHR4 <14 >•ONOGOSUB2000,3008,4000,5000,6000,7000 
280 KK-14'GOSiJB485>GOS«J61200> IF0-1THENP0KE759, 1 'PUKE4101,143 
285 GOTO360 

300 PRINT"ma BENT VAN MA'R A KARAKTERKE'SZLET »3C00- TOL? l/N"'GETKEVQ* 

310 I FQ4» “ I “ THENGIDSU6462' X1" U ' J KE ' SZLET " -t-P* ■ GOTO360 • ELSE l FQ*<> " N " THEN300 
320 PRINT"» TÖLTSE BE MONITORBAN, MAJD INOl'TSA U'JRA A PROGRAMOT!"■STOP 

350 GOSUB1150'IFQ-8ANOPEEK<65299>-208THENKA-196>KB«208'KK»142'U«*”Remi, MjI “ 

360 COLOP.0, 1 ■C0L0R.4, 1 •C0LiDRl,8,7>PRINT"ma “;MS" 2"'PRINT" ==«. 

—“ ■F*<1)*A1* 

364 F4<;6)-A6*+“SZLET ADATAI" 

365 F»<2)-A2»>F«<7)-6*'F4<9>«"STOP“•1-9'IFQ-6ANOPEEK<65299)<;208THENI»17 

370 F»<3>-A*+" —>"-vLEFT»<K*, I) >F*<4>-K*+" —>"+LEFT4<K*, I > ■ F#<;5>-A*+" +">K»'F*< 
8)»A8* 

380 F»<;0>-““ • Jl«3'J2-7<A-8>B»7'L=9>X»="“ > .J«3' GOSUB910' W*=M ' IFW»9ÍtHEN 

ENO 

410 1FW-8THENRIJN9 

430 ONWGOSUB450,468,500,608,788,888,1210'GOTO360 

450 PRINTCHR»<;9>; ■F»<10>-X1*'GOSIJ61150'U4-" RE0I"'X1»»"" 

452 POKE65298,196' POK.E65299,288 ’ PR INTCHR* < 142 > ; ' RETURN 
460 lFKB»208THENRETiJRrN 

462 GOSUB485 ■ POK£:65298, KA ■ PiDK.E65299, Ií.B ■ PR INTCHR* < KK > ; 

465 0NQG0SU81008, 1080, 1008, 1058, 1058, 1180, 1150'Xlt-F**.!©) 'RETURTI 

470 W»-CHR»<L> ' lFM»-“"i3RL-128THEU«l*«" " 

471 RETURN 

475 S4-" ".p*-". 43C00-43FFF" ■D*-"«<:C»>" 

476 C*-"»<:SH>" •G»-"-*-<Gi3MB> ■ "■G»C1>-“1 234567898 + --" 

477 G»<4>-“2 X C V B N M , . /" ■ E»-"——————————————" ■ RE 

TURN 

480 PRINT"IiniNOEN 2.SORBA I'RJAK? l/N" 

482 GETKEVW*' .Jl-l ■ IFW4-" I "THENF'ETURN ■ ELSE IFUI*0"N"THEN482 

483 Jt 1-2'RETURN 

485 PRINTCHR»<;8-<Q-1>); 'RETURN 

490 A-16136' B-215 • L-14816' GI3SUB950' RETURN 

500 GOSUe480' C-7 • GOSU8960 • M-0' B-31 ' J2-128 ■ G0Sije510' B-159' .J2-255' G0SIJB518 • RETURN 
510 OO'M-M+l 'A-B+l 'B-A+J1450-1 ' IFB>.J2THENB-J2 
515 GOSUe520'LOOPUNTIL<B-J2ORW»-"V">'RETURN 

520 PR.INT"ma "A»"/";STR»<M>'PRINT" "LEFT4<E», 16> ; ' PRINTTAB<37) 


540 J-lNT<<B-A)/5) ■FiDRl-0TOJ'FORK.-0TO4'JJ-3' IFK-0THENJ.J-5-J1 

550 PR1NTLEFT*<" M",JJ>;•L-A+1+<K4<J+1)>'IFL>BTHENPRINT" ";'GOTO570 

560 GOSU8470'PRINTW»; • PRINTUSING"!*###" , ASC<CHR*<L) > ; ■ lFL-34THENPRINTW*"ir'; 

570 NEXTK,I•GOSUB690'RETURN 

600 GOStJ6480 ' C-15' GOSIJB960' M-0 'B—l'J 2-127' GOSUB610' B-127 > J2-255 ' G0SUB618' RETURN 
610 OO'M-M+1 'A-B+l 'G-J1450-1'0-G+<;G>94)4 18 • B-A+G • IFB> .J2THENB-J2 
615 GOSUB620'LOOPUNTIL<B-J2ORW*-"V">'RETURN 

620 PR INT “ma "U»K»"/" ;STR.»<M)'PRINT" " i LEFT»<E», 24> ; 

630 PRINT"W "; ■PR.INTTAB<:37>; " ";'J-INT< <B-A>/5) ' 0-3225 

650 FOR.I-8TOJ'FORK.-0TO4'G-O+8'L-A+1 + «;K4<J+1)> > IFL>BTHENPRINT"I****I "; ■GOTO670 
668 P0K.EG,L'PR.1NTUSING"»***II*#4#" ,L; 

670 NEXTK'IFJl-lTHENPRINT")#" , '0-0+48 


675 NEXTI'GOSUB690'RETURN 

680 CHAR,23,24, "IfTBOVAmi, KBB" ' GETKEVW4 ' lFW*-"T"THENRETtJRN' ELSE680 

690 CHAR,9,24, "lITaOVAmi, KBB l»/lEmi, HÍGÉ" 'GETKEVW* ' IFW4-"T“OR.W4-"V"THENR 

ETURN■ELSe690 

700 C-ll'GOSUB960'B-31'M-O'J2-128'GOSIJB7l0'B-l59'J2-255'OOSUe7l8'RETURN 
710 OO'M-M+l'A-e+l'B-A+19'IF6>J2THEN6-J2 
715 OOSIJ6740'LO«3PUNT1L<B-J2ORM»-"V"> 'RETURN 

740 PRINT"mű "A*" + "K»“/";STR»<M)'PRINT" "LEFT*<E»,36> 

742 J-4' IFO-'SANOPEEK<;65299><208THEN J-8 

745 FOR1-0TOI'PRINT" ASCII KAR. " ; LEFT»<K», J> “ " ; ' NEXT ' PRINT“IM«I" ' J-INT< <B-A> 

/2>'0-3261 

7^ FiDRI-OTO J ' PRINT"*" , 'FORK.-0TOI' O-G+20'L-A+1+K4< J+1 > ' IFL>BTHEN788 

760 G*3Stje470'PRINTUSINO" »#* " ; ASC<CHR*<L> > i ' PRINTW*; ' IFL-34THENPRINTW*“II" , 

770 PRINTIJSING“»••»♦## ";PEEK<G>; 

780 NEXTK ' G'-G+40 • NEXT I ' GOSIJ8690' RETURN 
800 C-10'GOSUB960'O*3SIJ6890 

810 F»<2>-"EREOETl l.SET <GRAFIKUS>"'F»<3)-“EREDETl 2.SET"'F»<4>-“VISS2A“ 

820 F»<l>-iJ»'.Jl-2'J2-7'A-C'B-7'L-4'X*-“" ' J-5'W*-"“ 'V»»"" 'GOSUBSIO 
830 W-M'IFW-1ANDK8-208THENPRINT"NINCS ";U»;'GOSUB906'GOTO830 
835 ONWOOTOS40,845,847,850 
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o 

o 
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■F»<3)-"INTERVt=H.UJM“ • L-B • G0SUB91 


840 KE-15360■GOSUB462■G0T0855 
845 GOStJ8450 ■ KE-53248 • G0T0855 
847 GOSUB450 • PR.1MTCHP.*< 14) ; • K£-54272 ■ GOTOS55 

850 I FKB-20STHEHGOSije450 > ELSEGOSUB462 

851 RETtJRN 

855 PR.IHT" a"Q#"e “R.IGHT»<E»,36) 

860 F*<l)-“hINDeGVlK“<F*<2)-“EGV ROOTT KftRfttCTER” 

0 ■ R-f-l 

865 PRINT" a"Q»“5 "RIGHT»<E*,36) • F»<:4)-“Raj2“ • F»<l)■ 

DKETT“-ii03* 

870 F*<:2)-‘'HEXROEClt1"+01*+"LlS" -VÍ-'FIORTOK' " • J-l ■ L-4 • GOSUe910 < 0-6 • IFQ*-“^“THE^® 

-5 

871 IFG‘»-“4“THeMO-2 

873 O^ÍRGOSUB 1400,875,1500 > GOTO800 

875 PRlNT"ia VISSZfi-> IKRETiJP>OiiB«Oa" < GOSUB680 ■ X*-“ “ • OO > GOSUBÖSG ■ FOR.K-ITOO 

878 PR 1 NT " W? • GETKEVW* ■ 1 F«S<3 < W» ) -13THEÍ‘4GOSUe680 ■ RETURH 

880 PRINTW*; ■ L-PEEK<6) • 008061558 • ^«;XTK • GOSije6S>0 • LOOP 

890 PRIMT"n« “R6*"SZLET FlORTHl "X* ■ PRINT" " ; l_EFT*<E», 30-»LEN<X») ) • G-3234 ■ R 

ETURt4 

895 J-3-1 ■ Jl-IHT< JX256) > J2-J-J l*256 ■ POK.E217, Jl ■ PŰX;E2 16, J2 • SVS14293 ■ J-224 > RETURN 
900 FORI-lTOL'COLORl,fl,B‘PRIHT“» “ ; V»; ■ COLORl, J1, J2 ■ PRIMT" S" ; STR.»< I )W»" ■ " ; 

902 COLORl,fl,B'PRINTF4<I) > IF I-lfiH0V*O “ “THEK«-LEN<V» ) • V»-RIGHT*<.S», M) 

904 MEXT 

905 IFX»0"“THENPRINTX» 

906 GOSIJB970 • M-VRL<Q*) • IFM<IORM>LTHEH906 ■ ELSERETIJRM 

910 FORl-lTOL'COLORl, fi, B'PR.INTLEFT*<;“» “,J+1)V»; ■ CíJLORl, J1, J2 ■ PR.IHT" S" , 

912 PRIHTMI0*<STR#<I),2)"«"W»;■COLORl,fi,B■PRIHT" ";F»<I)■lFl-lfiHOV»<>""THEHM-L 

ENCV»)•V*-RIGHT*<S»,M) 

913 HEXT'GOTO905 

950 FÓRI-0TOB • POt<.Efi+1, PEEKCL> I) ■ MEXT < RETURH 
960 COLOR0,C,0<COLOR1,C,7>COLOR4,C, 1 >RETIJRN 

970 IFF*<0)-"“THEHGETKEVQ*'RETURH 

971 FÓR J-1TO40 • X*- "X'-*-mO*<F»<:0),J,39)> CHfiR, 0,24, X» • GETQ* • IFQ»<> " " THEHRETURH 
980 FÓR12-0TO200•NEXT■HEXT > G0T0971 

1000 B4-"l -»L»_~Xl l-r4“ "-XZ*-" "•fi2*-““J KfiRfiKTERK tóZLET BE rLLt T 

rSfi" 

1005 U*-" “'fi#-" KC>0K">K#-" »“ K CX3»::" < nS-“ V ~ X H ">03*-"t “'Dl* 


"I 


- l 


‘■•■Ml0*<fi2»,3, 16) + " 

( / -X I-1 a £ '*"' 0 *< 3 )-"* • 


"+MIO»<fi2*.20) •fi6*-"-'fiR.fiKTER. 
- l I ' l_ C 1“'fi8»-"“JRfiIH 


1015 fil*-"EREOETI 
K ." 

1036 G»<2)-"« O - 
ÓIT rS" 

1040 Ll*-"HOHHfiN"'L2#-“MEDDIG“'RÉTUK>4 

1050 B#-"B ILLENTV-rZE T“'Z*-“ "'XZ*-" “ • fi8*-"”JRfiIHO»T 48" 

1055 U*-" “J “'fi*-" aSCIl K^Dt<."'K*-“ K-S=-ERHV“ K.J30K." ' M*-“M E H -l“'01»-“*-“ 

1060 fi2*-"“J KfiRfiX TERK-^ZLET BE H_L«T ISfi" ' fi6*-“KRRfiKTERK-^“ ' 03*-“““ 

1086 fii ♦-"EREDETI Ri3M“+MID*<;fi2*, 3, 16)-*-“ ">MI0*<fi2*, 20) 

1087 0*<2)-"Q WERTVUIOP«£ *"'0*<3)-"fi SOFOHJKL ■ ;“'GOTO104O 
1100 B*-"B I L L E H T V UTTHLia Z E T“ ■ Z*-" “-XZ*-" " 'fi6*-“KfiRftK.TER(<E'TH, «“ 

1105 U*-“ U"ll, »J “'fi*-“ fiSCll KOmi, KDÖK" 'K*-“ KETII, HFERTIVO'ÍKia KO'XI, KDÖK" 

1110 fi2*»"U"ll, HU KfiRfiH:TERXE"W, KBZLET BEfiHil, l!LLI"»|. «Tft"H, I*3fi“ ' 01*-“fi"H, »" 

1125 fiS*-“UTII, «JRfiIMOI"ll, l«Tfi"ll, WS" ■ 03*-"0niH. 19" 

1130 M*-"M E H U'XIIIU"'fil*-“EREOETI ROM KfiR. "+nl0*<fi2*, 16, 21) + “.“'GOTO1087 

1150 B*-"B ILLEHTVUZE T“'Z*-" "'X2*»" “'«*»"M E H U “'fi8*-"UJRfilHOITfiS" 

1155 U*-" UJ "'fi*-“ fiSCII KÖDÖK"-K*-" KEIPERHVO KOOOK"'Dl*-“fi" 

1180 fi2*-“U J KfiRfiKTERKESZLET BEfiLL ITfiSfi" ' D3*-“0“ ' fi6*-“KfiRfiKTERK.E“ ' GOTO1086 
1200 POK.E65298, K.fi' P0K.E65299, KB 

1210 I-2'GOSIJB1300'PRIHT"Q WERTVUlOPiJE *“,D*G*“ -^-r-■._ m 

1220 PRIMTC*G*"* o~-l - tjr E* ■ 1-3'0081361330 

1240 PRIMT"fi SOFOHJKL > ; “,D*0*" r-itillll IC3“ 

1250 PRIHTC*G*"4 *--1 l'■-'LCa " , E* ' GO8UB680 ■ I -1 ' OO-SUB1380 
1260 PRIHT"! 234567890+- -",0*0*" ) 0 » * 

1270 PR.1MTC*0*“( “CHP*<34)" # ♦ 'í * ' < ) t 4 I ■+“,E*' 1-4 ■ GOSU61330 

1280 PRIMT“Z X C V B H M , . X“,0*0*“ * * S I I < > 7" 

1290 PRIHTC*0*"4 * - X 1 y X < > ?'»,E*'GO8UB680'R.ETIJRH 

1300 COLOR0,15,0'COLOR4,15,7■COLORl,2,7'PRIHT":!" ;CHR*<KK);X2*■PRIHTXl* 

1310 PRIHT"» a “;z*;* ■"'PRIHTU*"a ",B*" S" 

1320 PRIHT" a KO" 

1330 COLORl,8,7'PR.IHTI“II. SOR' a"G*<I),"KO GOMB “ ; ' COLORl, 2,7' RETUR 

1400 L-O'B-127 

1410 1-B-L+l 'M-lMTGl/'O) 'L-L-l ' 1FM40O ITHEHM-M+1 

1420 F0RI-1T0M'X*-'V"+STR*<I)'OOSUBeSO'FORK-lTOO'L-L+l■IFL>BTHEN1440 
1430 P0KEG,L'PRIMT“1W**I", 'GO8IJB1550 

1440 HEXTK ' GOSUB690 'IFW*-"V“ THEHRETUFiS ' ELSENEXT I ■ RETiJRH 
1450 J-L#8+(<E'PRIHT" l.BVTE-Jfi' *" ;HEX*<; J)"-" ;81 R*<J) 

1455 IFQ*»"2"THeM1465'ELSEPRINT" DEC."; 

1456 IFW>1THEHOOSUB895 

1460 Ft3PJJ-0TO7'PRIHTUSIHO“4##,";PEEK<J);'J-J+1'HEXTJJ'PRIHT"II "•J-L*8+KE 

1465 lFr)*-"l"THEH1480'ELSEPRlMT" HEX. 

1466 IFWMTHEH<30SIJB895 

1470 FOR.JJ=0TO7'PR1HTR1GHT*<HEX*<;PEEK<J)),2)", " ; ' J-J +1 ' HEXTJ J ' PRIHT"iai " 

1480 0-13+160+<;0-6) *40 íRETURlí 

1500 PRIHT" a",0.*"« ",RI6HT»<E*, 36) 

1510 PRIHTLl*;'IHPUTL'IFL<0ORL>127THEH151O'ELSEIFQ-6THEMPRIHT 
1520 PRIHTL2*;'IHPUTB'IfB<0ORB>127ORB<LTHEH1520■ELSE1410 
1550 IFi5*-"4"THEHGOyj6l600' RETURH' EL8EGO8U61450 ' RETUFT4 
1600 J-L*8+KE'PRIHT" HELVE'"'PRIHT" ♦ "HEX*CJ) 

1605 PRIHT" -"STR*<J>" TI 1 DEC. “LEFT^CE*, 18)" HEX." • IFH> 1THEM«308IJB895 
1610 FORJJ-0TO7'PRIMTTfi6<14)"I";'PRINTUSIHG" ",PEEKCJ);'PRIHT"-"; 

1615 J1 - IHT CPEEKX J ) X16 > ■ GOSIJB1658' J1 -PEEK< J ) - J1 * 16 ' OOSIJB1658 
1620 PRIHT"- "RIGHT*<HEX*<:PEEK<;J)) ,2) ' J-J+1 'HEXT'PRIMTTfiB<22 
+440 


'PRIMTTfiB<22);LEFT*<E*,lO)'0-0 


Ö . 
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o 
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o 
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162Í IFK = lTHE^^PP•l^4TTf^B<^3>; "12345678T* • RETtJRM■ ELSERETURH 
1650 FOR. J2-3TO0STEP-1 >W*-" “ ■ IF< JIHH0C21-J2) >-2r.J2THEHW»-”4" 

1635 PR 1 MTM», • MEXT ■ P.ETIJRH 

2000 GOSUB490'Xl»-“-H<EZETES KPRFtHTERK. rfSZLET ■ »3800-»3-“ 

2030 KEVl, “Pr65298/ 192 > Pr65299,56“+CHR»< 13> • K.B-56 ■ GOSIJB1000 • RETIJRN 

3000 GOSUB490>X1»*"-4'.E2ET£S K.lSBETiS K tóZLET • ♦S-GB-ÍG-“•Gt3SlJB1000 

3030 KEVl,"Pr65298,192■Pr65299,60■?CHR*<14>;“♦CHR*<13>•RETIJRN 
4000 GOSiJB2000't<.B-60>niO»<X14,31, !>«••-•• 

4030 GOSUB10O0 • X2»-“ I RNF IKUS NHGVBET-tS K ^ZLET • •-^0-»-3—“ ■ RETUftN 

5000 16144 ■ 6*-15 ■ L-14024 < GO8tJB950 • fl-16216 > B-7 • L* 14096 ■ GOSUB950 ■ fi-16264 • B-23 • L-1 

4144 

5010 GOSUB950 ■ fi-16312 • B-23 > L-14192 > GO8UB950 • X1 ♦« " -H<£ZETES NfitJV “ • GOTO6010 
6000 X1»-"“J -HÍEZETES N. " 

6010 X1»-X1*+"BETt 8 K-^ZLET“-*^P»>Gi3SUB1050'OOTO30:30 

7000 fi-15576 >8-23- L-l4232 ■ 008136950 > X1»- *' GRfiF. KE ' SZLET ,-¥2. E ' KEZET TEL " -i-P ♦ > GOSUB110 
O ■ RETIJRN 


O 

O 

O 

O 

O 



O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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0 RfcM sfiVE"Kis Ékezetes ci6" -i- 1989 . 01 . 20 ^ 

2 REI1 ♦ C- iJJSfiG SORSZfiM ■ í'+3. . . ■* 

3 RÉM 4K1SEBB MERETU Eh.EZETES NfiOVBETlJK* 

4 RÉM « PRÜOPÍHM' LÚGOS I fiNTfiLNE 4 

6 RÉM 

7 RÉM 

10 Pi>.E56,60'CLP. 

15 POKE65298, 196 ■ POK.E65299.208 
20 PRIMT“SC»1«»O««I«\Ü000 03FF 3C00W' 

30 FÓR 1-1319 TO 1326■REfiOJ•POKEI,J■NEXT 
40 POKE239,8 
50 MONITOR 

60 PPlNT"r^“'iBOTOllO 

70 C-B48-1 +fi' F OR l -«TOC > REfiOO» ' POK.E l, DEC í. O* > ■ ^^EXT > RETijRN 
IO0 DfiTfil3.88/13.71,207,54,48,13 

110 PR.INT“»1« fiZ aiB VfiGV fi atB KE'SZLETET K.E'Kl?" 

115 PRlNT“*!UiH***U.KE'S2LET> 545 MEDRET” 

116 PRINT"I«>>h»*H2.KE'S2LET> 646 ME'RET“ 

120 GETKEVQ*- IFiJ*-“2"THENRESTORE2000 > ELSEIFQRO" 1-THENIZO 
130 PRINT"«WIW4 I«-| O L G O 2 O M • I I ■" 

210 fi-DEC<"3000*)>8-30'0080670 >R£;m KEP.KOO' 0-29 
220 «-OEC<.“ 3O08“>‘B- 3 ■ GOSUB70 • RÉM KEP.K.OÜ- 33-35 
230 fi-0EC<"3038”>'B- 5•GOSiJB70•RÉM KEP.KOO' 39-43 
240 fi-OEC<"3068“>>B-19> >30^8870'FÉM KEP.KŰO' 45-63 
255 lFG*-”2"THENReSTORE1098 

260 fi-16144' e- 2'GŰSUe70'RÉM KEP.KOO' 98-99 

270 fi-16216' B- 1'0080670 ' RÉM KEP.t'OO'lOZ 

280 fi-16264' B- 3'GŰSOB70• SEM KÉP.fŰü'113-115 

290 fi-16312' e- 3'GO8ije70'R.EM KÉP. KOO • 119-121 

300 KEVl,"POKE65298, 192 ' Pi3KE65299,60 ' ?CHR»< 14> " ♦CHR4C 13> 

310 KEV2, "POKE65298, 196' POKE65299,20e''+CHP»<; 13> 

320 POKE65298,192'Pi> E65299,60'PP1NTCHK»<14) 

330 PR INT" -4<EZErES KfiRfiK lERK^SZLET; " 


340 PRINT"»I KISEBB M-HÍET-r BETtK.KEL ' 
350 ENO 

999 RÉM 1.KÉSZLET fiOfiTfil 

1000 OfiTfiO,30,66,68,60,62 

1001 OfiTfi0,00,3C,66,7E,66 

1002 OfiTft8,00,7C,66,7C,66 

1003 OfiTfi0,00,3C,60,60,60 

1004 OfiTfiO,00,70,66,66,66 

1005 OflTfi0,00,7C,60, 7i. ,60 

1006 DfiTfi0,00,7E,60,7C,60 

1007 DfiTfi0,00,38,60,66,62 

1008 OfiTfi0,00,66,66,7E,66 

1009 OfiTfi0,00,3C,18,18,18 

1010 OfiTfiO, idO, 0<: , 0C, 0<J , 6C 

1011 DfiTfi0,00,66,6C.78,6C 

1012 OflTfi0,00,60,60,60,60 

1013 OfiTftO,00,63,77,68.63 

1014 OfiTfi0,0O,66,76,7E,6E 

1015 OfiffiB,00,30,66,66,66 

1016 OfiTfi0,00,7C,66,7C,60 

1017 OfiTfiO,00,3C,66,66.30 

1018 OfiTfiO,00,70,66,70,68 

1019 ŰfiTfi0,00,:3C,60,3C,06 

1020 DfiTfi0,00,7E,18,18,18 

1021 OfiTfiO,00,66,66,66,66 

1022 O«Tfi0,00,66.66.24,3O 

1023 O«rfi0,00,63,63.6B, 7F 

1024 OfiTfi0,00.63,36,10,36 

1025 OfiTfi0,00.66.66,3C,18 

1026 OOTfi0,00,7E,0C,18,30 

1027 OfiTfi0.00,3C.30,30,30 

1028 OfiTfiOO.12,30.70.30,6 

1029 OfiTfi0,00,3C,0C,0i;,0C 

1033 OfiTfiQ,00,18,18,18,00 

1034 Úfirfi0,00.66,66,66,00 

1035 ÜfiTfi0,00,66,Ff,66,FK 
1039 ÚfiTfi0,00,06,0O.18,00 


»3000-43FFF" 


'30,0 ' RÉM 0 n 


66,0'RÉM 11 


70,0'RÉM B 



3C,0'REf C „ 


1040 

70,0'RÉM O O 



7E,0'REM E 


ü 1042 

•S.B.O'SEM S 


104 3 

3E,0'REM G Cl 


1045 

66,0'RÉM H ^ 


O 1046 

30,0'RÉM 1 


1047 

38,0‘SEM J 


1048 

66,0'RÉM K O 


_ 1049 

7E,0'R.EM L 


O 1050 

63,0'SEM M 


1051 

86,0‘SEM N ^ 


1052 

3C,0 RÉM 0 


O 1053 

60,0'RÉM P 


1054 

06,0'RÉM 0 


1055 

66,0'RÉM R O 


1056 

30,0'SEM S 


O 1057 

18,0'PEM T 


1058 

30,0'RÉM U ^ 


1ÍJ59 

18,0'RÉM V O 


^ 1060 

63,0'RÉM W 


1061 

63,0'REM X 


1062 

18,0'RÉM V n 


1063 

7E.0'REM Z ^ 


O 1098 

30,0'SEM L 


1099 

,70,0' SEM £ 


1107 

30,0'KÉM 3 O 


- 1113 

18,0'RÉM ! 


O 1114 

00,0'RÉM “ 


1 115 

66,0'RÉM • 


1119 

00,0'RÉM ^ 

O “20 


OfiTfiO,00,06,00,18,30,60,0 


O 

O 

O 

O 

O 

O 

O 

O 

o 


RÉM < 
RÉM > 
SEM 4 
RÉM + 
RÉM - 
Rt.M . 
RÉM 7 
RtM 0 
RÉM 1 
S EM 2 
RÉM 3 
RÉM 4 
RÉM 5 
RÉM € 
RÉM 7 
RÉM 8 
RÉM 9 

- _ _ ___■ RÉM ' 

1059 DfiTS»O,0e,00, 18,00, 18,18, 30'PEM ; 

.. .. - ^ 

RÉM - 
SEM > 
RÉM ? 


O 

O 

O 

O 

O 

O 

O 

O 

r 
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1121 OfHTflidC.ee/3C/6€,,66,6«i/^/0*Ptn U 

1999 RÉM 2.KES2LET fiOOTfil 

2000 ÜfiTOO,3C/6fc.6E/bO/t,2,3C.O<R.eM '• 

2001 ORTH0,3C»66/6€,7£,66,66.O'REM H 

2002 0RTVlia/7C«t<i»7C»66.66/7C/0>REM 6 

2003 DRTHO.SC.66.fcO, t/0/60.3C/0ÍREM C 

2004 DRTR0/70/6C/66.66/7C/78/0'REM O 
200-5 ORTft0.7E/60/78/60/60/7E.0'Ren E 

2006 ORTR0/7E.60.7C/60/60.60.0'REM F 

2007 ORTH0/3C/66.60/6E.66.3C.0'REM O 
2000 ORrR0/66.66/66.7e/66/66/0>ReM H 

2009 DfiTfl0/3C/18/10/18.18.9C.0>REM I 

2010 OnTH0,0C.OC/0C.0C.6C/38/0'REM J 

2011 ÜftTR0/66.6C/78/78.6C/66.01REI1 K 

2012 ORTR0/60/60.60.60/60/7E.0'REM L 

2013 ORTR0/63/77/68/63,63,63,0-KEM M 
2»314 ORTR0,66/76, 7E,6E/6E,66.0'REM N 

2015 DRTRO/3C/66/66,66,66/3C/0'RtM O 

2016 DRTR0,7C,66,7C,60,60/60,O.htM P 

2017 DRTR0,3C,66,66,66,3C/06,0'REM Q 

2018 ORTfl0,7C,66/7C/78,6C/66/0'FÍ£.n K 

2019 ORTRO,3C,60/3C,06/66,3C/0'REM S 

2020 ORTRO,7E,18,le,18.18/18/0'REM V 

2021 ORTRO,66,66/66,66/66/3C/0'REn U 

2022 ORTR0,66/66/66/24,38/18,O'REM V 

2023 ORTRO,63,63/63,6e,7F,63/0>REM W 

2024 ORTR0/66,3C/l8/3C/66/66/0>REM X ' 

2025 OflTR0/66/66,3«;, 18/18/lO/O'REM V 

2026 ORTRO,7E,06/08,38,60/7E/0'KtM í 

2027 DRTR0,38,30,30/30,30,38,0'RÉM C 

2028 ÜRTR08,12,30,78,30.62,78,O'KEM t 
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o 

o 

o 

o 

o 

o 

o 
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O 2 


o í 

V3 2 


2029 

2033 

203 -* 

2035 

2039 

2040 

2041 

2042 

2043 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2056 

2057 

2058 

2059 

2060 
2061 
2062 
2063 


ORTfl0,3C, 
OR-'-Md, 18, 
ÜHTR0,66, 
ÜRTR0,66, 
0RTR0,06, 
ORTRO.Oe, 
DflTR0,30, 
DRTR0,id0, 
ORTflO.OO, 
ORTR0, V30, 
OPTR0,O0, 
DRTR0,03, 
ORTRO,38, 
DRTR0,18, 
ORTR0.3e, 
ORTR0,38, 
ORTR0,18, 
ORTR0.7E, 
ORTR0,38, 
OflTR0,7E, 
ORTR0,38. 
ORTR0,38, 
ORTfi0.00, 
ORTR0,00, 
ORTfi0,00, 
ORTR0,00, 
ORTR0,00, 
ÜRTR0, 38, 


08,08,08, 
18,18,18, 
66,66,00, 
66, FF, 66, 
08,18,00, 
18,30,30, 
18,08,08, 
66,38, FF , 
18. 18,7E, 
00,00,7E. 
00 , 00 , 00 , 
06,08,18, 
66,6E,76, 
38, 18, 18. 
66,08, 30, 
06,18,06, 
38,68,TE, 
60,78,06, 
60,60,78, 
66,0<*, 18, 
66, -38,66, 
66,3E,06, 
00,18,00, 
00/18,00, 
08,18,30, 
00,7E,00, 
30,18,08, 
66,0«;, 18, 


08,38 
00, 18 
00,00 
FF, 66 
00,00 
18,08 
18, 30 
38,66 
18, 18 
00,00 
18, 18 
30,60 

66.38 

18.38 
60,7E 

66.38 
08,08 
46,78 
66,38 
18,18 
66,38 
66,38 
00, 18 
18, 18 
18,08 
TE, 00 
18,.30 
00, 18 
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A DIRECTORY 
GYORSAN, 
ÁTTEKINTHETŐEN 

A programjainkba írt. a lemez tartalomjegyzékét program¬ 
vesztés nélkül kiolvasó rutin nem kell hogy bonyolult legyen. 
Gyakran azonban ezek a rutinok túl lassan dolgoznak, főleg, ha 
sok bejegyzést tartalmaz a Directory. Ekkor ugyanis az első 
feliratokat odébb kell görgetni. Ugyanez érvényes a lemez nt 
vére vagy ID-jére is. ha azokra gyakran szükség van. A beolva¬ 
sáskor mindjárt ez az a két információ, ami elsőre eltűnik. Ezek 
miatt írtam egy saját rutint erre a célra (1. lista). 

A dolog elméletileg ugyanúgy működik, mint a számos, már 
korábban leközölt Directory beolvasó rutin. Az enyém azonban 
namcsak a gyors olvasásra, de az áttekinthető kijelzésre is figyel. 

Utóbbit pedig úgy érjük el. hogy a tartalomjegyzéket oldalakra 
osztjuk föl 20-20 bejegyzéssel (1. oldal: fejléc és 29 bejegyzés 
stb.) A fejléc minden esetben tartalmazza a lemez nevét és az 
ID-t. 


A kivitelt a «—» gombbal lehet befejezni, vagy bármely más 
gombbal tovább lapozhatunk. A legutoljára megnyomott gom¬ 
bot a GET A$-ral kérdezzük le. 

De térjünk vissza a programhoz. A demot (2. lista) a következő 
utasítással tölthetjük be: 

LOAD "DEM0".8 

Az indítás RUN <RETURN>-nel történhet. A program behívja 
a szükséges gépi kódú részt, s gombnyomásra kijelzi a meg¬ 
hajtóba behelyezett lemez tartalomjegyzékét. A meghajtó szá¬ 
mát 8 és 15 között változtathatjuk az L változóban. A rutint az 
alábbi módon használhatjuk saját programjainkban (a deirx)- 
program már tartalmazza összehasonlítási célokra a fontos 
lépéseket): 

1. A rutint a programunkban lehetőleg minél korábban (az 
elején) olvassuk be (30. sor). 

2. A felhívás előtt (vagy a teljes programunkban) ne használ¬ 
juk a kisbetű/nagybetű lárakterkészletet (40. sor). 

3. A rutin szintaxisa SYS 49152. Ez előtt módosítani lehet 
a meghajtó egységszámát a POKE 49156.érték (8—15) pa¬ 
ranccsal. 

4. A fölhívás után a legutoljára megnyomott billentyűt kér¬ 
dezzük le GET A$-ral. vagy azt elimináljuk POKE 196.0-val. 

Még egy tipp a gyakorlottabb felhasználóknak: A fölhívás 
után a lemez neve a 49423—49437 ($C10F—$C11E). az ID pedig 
a 49440-^19444 ($C121-$C125) Címeken áll. 


Q 1 rém *****t*$****t**t*t****t*tt***t** 

2 rém"* C- Újság Sorszám» O 

3 rém"* GYORS DIRECTORY * 

4 rém"* Program: Kovács Zoltán * ^ 

O 6 : 

7 : O 

Q 8 print chr*(147)"data beolvasás es ellenőrzés ..."j:j=49152:ve=49423:p-j 

9 fór b=0 to 7:read a% q 

10 l=asc(mid*(a*,2,1)) 

O 11 h=asc(mid«(a«,l,l) ) ^ 

12 l»l-48:if 1>9 then 1 = 1-7 
O 13 h=h-48:if h>9 then h=h-7 

14 print"QlV>M00»»l"p; :p=p-Fl O 

Q 15 if h>15 or 1>15 then 17 

16 a=h*164l : poke j ♦b, a: t=t-*-a: next b:read a:if a«t then 18 O 

17 print:print"data hiba ... sor: "peek (64) *256-Fpeek (63) :end 

^ IS t='0: j“j-FB; if j<ve then 9 

print"20lkesz" :end ^ 
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30 if «>0 th»n «-liload^fast dirvctory”,8,1 O 

O 40 printchr*(8)|chr*(14) 

50 l-0ipok» 47153,1 

Q 60 r»m ^ 

61 rsm t ura* fila-ok fallrasa • 

62 rém O 

O 63 prlnf'tSVF'lle-okat felírjam (i/n)?" iwalt 198,255iget aSilf at^^n" then 120 

66 rém tii clr i:t crsr le iii crer Jobbra iii q 

Q 70 prlnf'mKis türelmet - felirom a f 1 le-okat... 

71 rém iii clr tii crsr le :it crsr Jobbra tii 

80 fór a-1 to 40iprint''«Sm"t40-a|''>l " O 

^ 81 rém iii home iii 3«crsr le iii crsr Jobbra iiiit crsr balra tit 

90 f*»"file"+str*(a)+",w,p"jopen 1,8,2,f*tclose linext q 

O 100 rém $««»«»««»««$««»**««««« 

101 rém t directory meghívás t 

102 rém t********************* O 

^ 120 print'*MIBBftBVBHBCombnyomasra - Directory" 

121 rém iii clr i:i 5tcrsr le iit 3tcrsr Jobbra ti: q 

O 130 walt 198,255:get a* 

140 sys 49132iget a* 

_ 150 rém a*“" a-* megszakítja a directory hívást ^ 

160 goto 120 

1 

I O ready. 



o 

20 

data 

a9,01,a2,08,a0,00.20,ba,0718 

38 

data 

c0,4c,2b,c0,20,44,e5,a2,0994 

O 


21 

data 

ff,a9,01,a2,0e,a0,cl,20,0986 

39 

riata 

07,bd,f8,c0,20,d2,f f,ca,1335 


o 

22 

data 

bd,f f,20,c0,f f,a2,01,8e,1228 

40 

data 

d0, f7,ae,-3d,03,39,00,20,0894 



23 

data 

3d,03,20,c6,ff,a9,00,8d,0859 

41 

data 

cd,bd,a2,08,bd,ff,c0,20,1232 

o 

n 

24 

data 

3c,03,20,e3,c0,20,94,c0,0886 

42 

data 

d2,ff,ca,d0,f7,a2.00,bd,1473 



25 

data 

4c,3f,C0,20,cf,f f,20,cf,1064 

45 

data 

0f,cl,e8,20,d2,ff,e0,10,1177 

o 


26 

data 

ff,a9,40,c5,90,f0,0e,a9,1252 

44 

data 

d0,f5,a2,06,bd,07,cl,20,1042 


o 

27 

data 

0d,20,d2,f f,20,5c,c0,20,0858 

45 

data 

d2,ff,ca,d0,f7,a2,00,bd,1473 

0 


28 

data 

51,c0,4c,67,c0,20,74,c0,0984 

46 

data 

21,c1,e8,20,d2,f f,e0,05,1184 


o 

29 

data 

20,cc,ff,a9,01,20,c3,ff,1143 

47 

data 

d0,f 5,ee,3d,03,a9,0d,20,0969 

o 


30 

data 

60,20,c f,f f,20,d2,f f,c9,1288 

48 

data 

d2,ff,60,a2,08,20,cf,ff,1225 

ö 

31 

data 

00,d0,f6,60,20,cf,ff,aa,1214 

49 

data 

ca,d0,fa,a2,00,20,cf,ff,1316 



32 

data 

20,cf,ff,20,cd,bd,60,ae,1190 

50 

data 

9d,0t,cl,e8,e0,17,d0,f5,1297 

o 


33 

data 

3c,03,e0,13,f0,11,ee,3c,0861 

51 

data 

60,20,12,3a,45,47,41,d0,0617 


o 

34 

data 

03,4c,2b,c0,a9,00,85,c6,0814 

52 

data 

12,3a,4b,53,49,c4,20,92,0681 

o 


35 

data 

a9,01,c5,c6,d0,fc,60,20,1153 

53 

data 

12,3a, c4, c9,20,92,24,00,0687 


o 

36 

data 

74,c0,ad,77,02,c9,5f,f0,1138 





o 

37 

data 

bf,a9,00,Bd,3c,03,20,94,0744 

ready. 

— 

u 



Az Auto Starl.bas program egy autostart generátor, amely 
a lemezre Ir egy mintegy 120 byte-nyi programot Ez maximum 
két újabb állornányt hív be és indít el automatikusan. Például 
az első program egy floppygyorsitö lehet vagy valami hasonló. 
Nincs szükség a kézzel történő betöltésre és indításra, mivel 
az a tulajdonképpeni főprogram indításával együtt megtör¬ 
ténik. 


Adjuk be a listát és a letárolás után indítsuk el a RUN-nal. 
Azonnal megjelenik a kérdés, mi legyen az autostart program 
neve. Ezt később Al -gyel kell behívni. Adjuk be tehát a kívánt 
nevet például AUTÓ. Az ezt követő <RETURN> után az első¬ 
ként betöltendő program nevére kérdez a program. A kipróbá¬ 
lás kedvéért adjuk be az autostart generátor programunk 
AUTO-START.BAS nevét A számítógép ezután arra a beugrási 
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O 

cimre vár. amelyre a második program elindítása előtt lépünk. 
Szoftveres floppygyorsltó esetében például így kihasználhatjuk 
azt a második program betöltéséhez. Mivel a mi esetünkben egy 
egyszerű BASIC programról van szó. adjuk be itt a 43121-es 
címet, amely a RUN 0 BASIC parancs gépi kódú megfelelője. 
Ebből az következik, hogy a kezelendő BASIC programjainknak 
mindig rendelkezniük kell egy nulladik sorral, még ha az a 
0 RÉM is. 

A nulladik sorra akkor nincs szükség, ha a BASIC programot 
másodikként, azaz egy gépi kódú programként hívjuk be. 
A gépi kódú programok indító címeit legtöbbször az első és 
egyetlen kilistázható BASIC sorban találjuk egy SYS utasítás 
mögött. A rutinnak logikusan egy RTS-seí kell végződnie, hogy 
a második program utántöltése is megtörténhessen. 

A beugrási cím megadása után ugyanezt a procedúrát a 
névvel és a címmel meg kell ismételnünk a második programmal 
is. Az utolsó kérdésnél egy BASIC program kezdéséhez szük¬ 
séges 43121 es értéket mindjárt meg is ajánlunk. A mi esetünk¬ 
ben nincs másik program, ezért csak az első kérdést kell 
<RETURN>-nel visszaigazolni, és máris kezdődhet a tárolási 


munka az autostart állomány elkészítésére. Ha behívjuk a le¬ 
mezünk tartalomjegyzékét ezek után, ott egy egyblokkos AUTÓ 
nevű állományt kell találnunk, amely mögött megtaláljuk a 
,8,1-et. így azután rettentően könnyű ezt a programot a Direc- 
toryból behívni (LOAD a név elé és <RETURN>, máris kész). 

A működési elv nem különösebben komplex. Az autostart 
program a tárolóban a $01EO—$0247 területen áll, vagyis az a 
processzorstack közepén kezdődik. A hely korlátozott, ezért 
a két betöltendő program neve összesen nem lehet több. mint 
17 karakter! Adott esetben nevezzük át programjainkat Ha be¬ 
hívjuk az autostart állományt, azaz a mi esetünkben az AUTO-t, 
akkor ezzel fölülírjuk a stacket. A betöltést követően a főprogram¬ 
ba (ebben az esetben ez a BASIC interpreter) való ugráshoz 
igyekszünk megszerezni a stackből a megfelelő beugrási címet, 
de ekkor gondosan elkészített programocskára bukkannunk. 
Az autostarter első része ugyanis néhány $02-es byte-ból áll. 
amely arra ösztönzi a CPU-t hogy a ($0202 f$01) es cimre 
ugorjon. Itt áll azonban a mi kis betöltő rutinunk, és ekkor minden 
a maga előre kijelölt útján halad tovább. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 


é) rém 

1 rém ****************yii*************4i^ 
^ itaiu * C- UjuHti Ssz.:17-5 » 

3 x öoi"* AUTÓ START GENERÁTOR ♦ 

4 loat"* Pz-ugram: Kovács Zoltán ♦ 


6 : 

7 : 

lü ai=-i:a2=-l 

20 print chr$( 14)"■ítiKerem megadni az autostart" 

21 reui : : : clr : : : crsr le : :: 

40 prinfii progreun nevet:"; 

41 rém ::: crsr le :: : 

50 input fi$ 

60 if fi$="" then print"file-nev hiba !!":end 

70 fi$=left$(fi$,10) + " .8-1-i' 

71 rém ::: comm d ::: comm d ::: shift @ ::: 

80 : 

90 prlnt"n£ies most az elsőként betöltendő" 

91 rém ::: 2*crsr le ::: 

100 prinf'íl fiié nevet:"; 

101 rém ::: crsr le ::: 

110 input fl$ 

120 if fl$="" then prinffile-nev hiba !!":end 
130 : 

140 input"ckiBeugrasi cim ";al 

141 rém ::: 2*crsr le ::: 

150 : 

160 prinfcfeimost a másodszorra betöltendő" 

161 rém ::: 2*crsr le ::: 

170 print"‘íl program nevet"; 

171 rém ::: crsr le ::: ' 

180 input f2$ 

190 if len(f2$)=0 and al=-l then prinff ile-nev hiba !!":end 
200 : 

210 if len(f2$)=0 then 250 

220 input"Slsitíeugrasi cim (BASIC) 43121Hi»»»^i'i" ;a2 

221 rém : : : 2*crsr le : : : 74tcrsr balra : : : 

230 if len(f2$)>0 and a2=-l then prinfCim hiba !!":end 
240 : 

250 open 1.8,2,fi$+",p,w" 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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260 

270 

280 

290 

291 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 


open 2,8,15 
input#2,fe.fe$ 

if fe=63 then prinfSTEl Autostart-filo mar létezik !":goto 680 

rém ::: 2*crBr le ::: 

if fe>0 then print fe,fe$:goto 680 

rém regi fiié kicsereleee ? ♦♦♦ 

print«2, "r: •■+fl$+" = "+f 1$ 
inputé2,fe,fe$ 

if fe<>63 then print fe,fe$:goto 680 

if f2$="" then 430 
printll2, "r: "+f2$+’*="+f2$ 
inputll2, f e, f e$ 

if fe<>63 then print fe,fe$:goto 680 

rém ♦** adatok beolvasása 
pr=0:t=0:restore 

read a:if a>=0 then poke 828+t,a:t=t+l:pr=pr-*-a:goto 440 
if pr<>7983 then print"Hibás ellenorzoszam !!!":goto 680 

if al=-l then 510 

hi=lnt(al/256):lo=al-256*hi 

poke 893,lo:poke 894,hi 

if a2=-l then poke 892,44:a2=al 

hi=int(a2/256):lo=a2-256*hi 
poke 930,lo:poke 931,hi 

poke 901,72+len(f1$) 

poke 860,len(fl$):poke 861,len(f2$) 

fór a=l to len(fl$) 

poke 931-t-a,asc(mid$( f 1$,a, 1) ) :next 

if len(f2$)=0 then 650 
fór b=l to len(f2$) 

poke 930-t-a-»-b,asc(mld$( f2$,b, 1)) :next 
printm,chr$(224);chr$(1); 
fór d=826 to 931+atb 
print#1,chr$(peek(d));:next 
close l:close 2:end 

data 2,2,2,2,2,2,2,2 
data 2,2,2,2,2,2,2,2 
data 2,2,2,2,2,2,2.2,2,2 
data 2,2,2,2,174,167,0,0,96 
data 169,00,32,144,255,169,1 
data 162,8,160,1,32,186,255 
data 173,0,2,162,72,160,2,32 
data 189,255,169,0,32,213,255 
data 32,2,2,173,1,2,240,12.162 
data 80,160,2,32,189,255,169,0 
data 32,213,255,32,51,165,165 
data 23,134,45,133,46,32,96,166 
data 162,253,154,169,0,76 
data 113,168,-1 



j O ready. 
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TIZENHAT 
IGAZI SPRITE 

Miután találkoztam olyan programokkal, amelyek a képernyőre 
több száz sprite-ot varázsolnak, amelyeket sehogyan sem lehet 
mozgásra késztetni, én végre egy olyat akartam fejleszteni, 
amelyik használható. Ilyen program a Multi 16. 

Bár csak tizenhat sprite áll a rendelkezésünkre, de ezek keze¬ 
lése korlátozások nélkül megvalósítható. A program mind a 16 
sprite számára lehetővé teszi a szín, a pozíció, a multicolor 
mód és az X/Y nagyítás használatát. 

A Multi 16 a $CE00 címtől kezdve áll a tárolóban. Az indításhoz 
választhatunk a SYS 52992 (csak az IRO-t indítani) és a SYS 


52996 (az „új” VIC-et is inicializálni) kozott A program kikap¬ 
csolása a SYS 52998-cal történhet Ekkor a VIC-et a kiindulási 
állapotba visszük. A $CF(X)-tól állnak az 1—8. sprite-ok regisz¬ 
terei, a $CF30-tól pedig a 9—16. számúakéi. A foglaltság egy az 
egyben megfelel az eredeti VIC regiszterek foglaltságainak. 
De csak a $D(XX)—$D010. a $0015, a $D017. a $D01B-$D01F 
és a $D025—$D02F cellákat vesszük figyelembe. A többi VIC 
regisztert továbbra is használni lehet az eredeti funkcióknak 
megfelelően. A $CF60-tól és a $CR0-től kell állniuk a sprite mu¬ 
tatóknak, amelyeket mindig eltolunk a $07F8-hoz. A képernyőt 
tehát nem szabad más helyre vinni. Különben minden más 
megengedett (például megváltoztatott jelkészletek). Felhasz¬ 
náljuk a rasztennterrupt trükköt. A VIC-et egyszer a $CFOO-nál, 
egyszer pedig a $CF30-nál jelezzük. Emiatt a sprite-ok viliódznak 
kissé, főleg világos háttér előtt. 


O 


O 


O 


rém 

rém’ 

rém' 

rém’ 

rém 


1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 data 
data 
data 
data 


♦ C= UJaag Sorszám ♦ 

♦ MULTI 16 ♦ 

♦ Program: Kovács Zoltán ♦ 

aaaaaaamaaaaaaaaaaaaaaaaaa****** 


print chr$(147)"data beolvasás es ellenőrzés 
fór b=0 to 7:read a$ 
l=asc(mld$(a$,2.1)) 
h=asc(mld$(a$,l,l)) 

1=1-48:if 1>9 then 1=1-7 
h=h-48:if h>9 then h=h-7 
prlnt"^*»»B»»»»l"p: :p=lH-l 
If h>15 or 1>15 then 17 

a=h*16+l:poke J-tb.a:t=t-fa:next b:read a:if a=t then 18 
print :prlnt''data hiba ... sor: "peek(64)*256-i-peek(63) :end 
t=0:d=J-h8:if d<vo then 9 
prinf'mkesz" :end 
data 4c,29,ce,4c,09,ce,4c,d8,0906 
data ce,a0,00,b9,00,d0,99,00,0912 
data cf,99,30,cf,c8,c0,2f.d0.1262 
data f2,a0,00,b9,f8,07,99,60,1091 
data cf,99,70,cf,c8,c0,08,d0,1287 
data f2,78,a0,00,b9,00,d0,99,1068 
data 80,cf,c8,c0,30,d0,f5,a9,1397 
data 5a,8d,14,03,a9,ce,8d,15,0791 
data 03,a9,81,8d,Ia,d0,a9,01,0846 
data 8d,12,d0,ad,ll,d0,29,7f,0933 
data 8d,11,d0,a9,00,8d,d6,ce,1096 
data 56,60,ad,19,d0,8d,19,d0,0964 
30,07,ad,0d,de,58,4c,31,0674 
ea,ad,d6,ce,f0,05,a2,30,1282 
4c,75,ce.a2,00,8e,d7,ce,1124 
a0,00,bd,00,cf,99,00,d0,0917 
data e8,c6,c0,ll,d0,f4,ae,d7,1462 
data ce,bd,15,cf,8d,15,d0,bd,1182 
data 17,cf,8d,17,d0,a0,lb,bd,0978 
data lb,cf,99,00,d0,e8,c8,c0,1219 
data 20,d0,f4,ae,d7,ce,a0,25,1276 
data bd,25,cf,99,00,d0,e8,c8,1226 
data c0,2f,d0,f4,a0,f8,ae,d7,1488 
data ce,e0,00,f0,02,a2,10,bd,1039 
60,cf,99,00,07,e8,c8,c0,1087 

45 data 00,d0,f4,ad,d6,ce,49,01,1119 

46 data 8d,d6,ce,4c,7e,ea,00,00,0997' 

47 data 78,a9,31,8d,14,03,a9,ea,0905 

48 data 6d,15,03,a9,00,8d,la,d0,0709 

49 data a0,00,b9,80,cf,99,00,d0,1041 

50 data c8,c0,30,d0,f5,58,60,79,1196 

ready. 


d =52736:ve=52983:p=d 


data 

data 

data 

data 


O 


o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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10 rém ««*«*«««*««»*«*«**««««*«*»»*«*« 

11 rém"* C= UJaag Sorszámi'*?? ♦ 

12 rom"* MULTI 16 DKMO * 

13 rém”* Program: Kovács Zoltán * 

14 rém a****************************** 

15 : 

16 rom" DBMO 

17 : 

18 if peek(52736)<>76 then loacl'‘iiiultl 16",8,1 

19 sys 58648:sys 64789:sys 64931 

20 poke 53261,.:poke 53280,. 

23 fór t=12864 to 13952:poke t,0:next 
25 ba=49152-t-15*256 : rém a vlc-nultl 16 bazisclroe 
30 vl=ba:v2=ba-t;3*16: rém vlc elmek 
35 zl=ba-t-6*16:z2=ba-t-7*16: rom sprltepolntor elmek 
40 sa=49152-t-14*256:rém kezdőcím 

50 prlnt"M9ez a programm 16 sprlte-ot kepes egy-" 

51 rém ::: clr ::: Ctrl 2 ::: 

55 prlnfazerre egy képernyőn megjeleníteni," 

60 prlnf'akar mind a 16-ot egymás mellett Is." 

65 prlnf'egy kis türelmet kerek! ":poke 56334,0:poke l,51:prlnt"SE1' 

66 rém ::: 2*crsr le ::: 

70 fór t=0 to 15:po=201*64-i-t*64 

75 nu$=rlght$( "0"-i-rlght$(otr$( t-t-1) , lon(str$( t-t-1) )-l) ,2) 

80 al=asc(left$(nu$,1)):a2=asc(rlght$(nu$,1)):prlnt"M"nu$ 

81 rém ::: ersr fel ::: 

85 fór r=0 to 7 

90 poke po-fr*3,poek(al*0-f53248-t-r) 

95 poke po-fr*3-fl ,pook(a2*8-f53248-t-r) 

100 next r 
105 next t 

110 poke 1,55:poke 56334,1 

113 sys sa-t-3:rem start (Inlclallzalassal) 

115 prlnt"tetőst egymásután bekapcsoljxik a 16 " 

116 rém ::: clr ::: 

120 prlnt"oprlto-ot: ": fór t=0 to 7:poko zl-t-t,201-t-t:noxt 
fór t=0 to 7: poke z2-i-t, 209-t-t: next 
fór t=l to 15 stop 2: poke vl-ft, 100: next 


123 
125 

130 a=20:for t=0 to 14 stop 2:poke vl-ft,a:a=a-t-20:noxt 
135 
140 
145 

150 next 
155 
160 
165 
170 


fór t=l to 15 stop 2: poke v2-t-t, 100: next 

fór t=0 to 14 stop 2:poke v2-ft,a:a=a-t-20: if a>255 then 

if a>255 then a=a-256:poke v2-t-16,240 


1=0: fór t=0 to 7: l=l-t-2~t :poko vl-f21,l 
fór r=l to 1000:next r:next t 
1=0: fór t=0 to 7: l=l-f2~t:poke v2-i-21,l 
fór r=l to 1000:next r:next t 


175 fór t=l to 15 step 2:for r=100 to 200 step l:poke vl-^t, int(r) :next r,t 


180 fór t=l to 15 step 2:for r=100 to 200 step l:poke v2-ft, int(r) :next 
190 fór t=39 to 46:poke vl-ft,l:for r=l to 300:next r,t 

195 fór t=39 to 46:poke v2-^t,l:for r=l to 300:next r,t 

200 fór t=39 to 46:poke vl-ft,2:for r=l to 300:next r,t 

205 fór t=39 to 46:poke v2-*-t,2:for r=l to 300:next r,t 

210 fór t=l to 4000: next: rxin _ 


r,t 
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O 
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PROFI DESIGN 

A C64-es esetében is egyre több a felhasználói felületeket 
használó program, amelyek fölöslegessé teszik a billentyű¬ 
zetről történő beviteleket. Ezek helyett joystickkai vagy egy 
egérrel kell egy mutató nyilat a menüpontokra vezetni. Gomb¬ 
nyomásra azután a megfelelő alprogramot aktiváljuk. 


Aki járatos az Assembler progranwzásban. annak ez nem 
probléma, a BASIC-ben programozók azonban törhetik a fejü¬ 
ket ha ilyen komfortot akarnak beépítem programjaikba. De 
nem kell megírni azt ami már kész. A lista tartalmazza a szük¬ 
séges alprogramokat egy. a 2-es portba csatlakoztatott joystick 
BASIC lekérdezéséhez. A nyíl mozgása azután teljesen automa 
tikusan történik. A 4-es és az 5-ös listák mutatják szemléletesen 
a gépi kódú rutinok használatát Most nézzük a szintaxist: 
SYS49152.m.sz,s 


1 rém tt**t*t1(*tt***t**tt$$t*tt*ttttt* 

2 rém"* C* UJsag Sorszám* 

3 rém"* EGER 64 * 

4 rém"* Programi Kovács Zoltán * 

5 rém ******************************** 

6 : 

7 : 

8 print chr*(147)"data beolvasás es ellenőrzés 

9 fór b«0 to 7; read a* 

10 l=asc(midS(a*,2,1)) 

11 h»asc(mid*(a«,l,l) ) 

12 l=l-48iif 1>9 then 1-1-7 

13 h“h-48iif h>9 then h»h-7 

14 print"^»»*B»»»rp; :psp-»-l 

15 if h>lS or 1>1S then 17 

16 a>h*16-*-l I poke j-*-b,a: t*«t-*-a:next biread aiif a”t then 18 

17 printí prinfdata hiba- sor i "peek (64) *256-*-peek (63) lend 

18 t=0:j»j-*-8iif j<ve then 9 

19 prinfUliesz" iend 


O 

O 


;Ij»49152ive=49431ip»j 



20 

data 

0 

21 

data 


22 

data 

o 

23 

data 


24 

data 


25 

data 

0 

26 

data 


27 

data 

0 

28 

data 


29 

data 

o 

30 

data 


•31 

data 


32 

data 

0 

33 

data 


34 

data 

o 

35 

data 


36 

data 

o 

37 

data 


38 

data 


39 

data 

o 

40 

data 


41 

data 

o 

42 

data 


43 

data 

o 

44 

data 


45 

data 


46 

data 

o 

47 

data 


48 

data 

0 

49 

data 


50 

data 

o 

51 

data 


32 

data 


53 

data 

o 

54 

data 

o 

ready. 



EBER-MUTATO DEMO 1 


Eg«riiMJt«to-d»a)0 Bl' 




lee rmm 
1B9 rmm 
119 rmm 
ize I 
129 I 

190 If ••■e th«n aaliload "•gar 64*,8 

139 aym 49192,1,0,2 

140 poka 93280,19ipoka 93281,19 
149 poka 646,11 

190 print chr*(147)Ichr*(14) 

199 I 

160 K-paak( 93248)-24-»296«(paak( 93264 )and 1) 

169 y>paak(93249)-90 

170 t-paak(96320) and 16 

179 It t“0 than •••*Tuz*igoto 189 

180 «•-** 

189 prlntchr*(147)IK,y,«• 

190 goto 160 

raady. 


o 

o 

o 

o 

o 

o 


43 ; 






















PROGRAM 


Ez a programban csak egyszer szerepeljen. Az ,.m" a módot 
jelenti, értéke 0 és 1 lehet. Előbbi az egér-, utóbbi a joystick¬ 
mutatóhoz való. Az „sz" paraméter rögzíti a mutató nyíl színét, 
az értelemszerűen 0 és 15 közé eshet. Az „s" a sebességet 
meghatározó adat 0 és 255 kozott. A kisebb érték a lassúbb 
sebességet jelenti. Túl gyorsra ne állítsuk a kurzort, mert akkor 
a nyilat nem fogjuk tudni pontosan pozicionálni. A koordináták 
lekérdezése sem nehéz; 
X»PEEK(53248)-24-(-256*(PEEK(53264) AND 1) 
Y-PEEK(53249}-50 
T = PEEK(56320) AND 16 

Ezután az X és az Y változóba kerülnek a nyíl csúcsának koor¬ 
dinátái, a T-be pedig a tűzgömb állapota. A T értéke 0, ha a 
gomb igen, 1 pedig ha az nincs meányomva. 

Az egérmutató kezelése sem nehéz, igaz, azt meg kell szokni. 
Kétséges esetben bizonyára segít a mellékelt két példaprogram 
elemzése. 

Az elsőben a nyílhegy mindenkori pozícióját írjuk ki, a máso¬ 
dikban a nyíl által éppen kijelölt szó karaktereit a tűzgombbal 
inverzbe és vissza állíthatjuk. 


EGER-nUTATO OEMO 2 


lee rmm - , - , - 

IBS -Eg«rmutato-dMO 02 

11S - 

j 120 t 

12S I 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


130 It a'B than a-liload “•gar 64**,8,1 

133 pok* 53280,ISipoka 33281,13 

140 poka 646,11 

143 prlnt chr»(147)|chr*(14) 

130 I 

133 prlnt "Karak 10 tatazolagaa azot* 

160 prlnt "balrnl i"iprlnt 
163 fór t-0 to 9 
170 Input M9(t) 

175 naxt t 
180 I 

185 prlnt chr*(147)| 

190 tor t-0 to 9 
193 prlnt w*(t) 

200 naxt t 

203 ays 49132,1,0,2 

210 I 

213 t-paak(36320) and 16 
220 If toe than 213 
223 y-paak(S3249)-50 
230 l-lnt(y/8) 

233 If 1>10 than 213 

240 K-paak(33248)-24«236<(paak(33264)and 
243 s-lnt(x/8) 

230 If s> lan(M»(l)) than 213 
253 I 

260 ad-lB244'l«40 

265 fór t-0 to lan(Ma(l)) 

270 poka ad-^t, (paak (ad+t )'*128) and 233 
273 naxt t 
280 goto 213 



O 

O 

O 

o 

o 

o 

o 

1) O 

o 

o 


Gáspár D.—Gyenes T. 

A Plus/4-es 

belső 

felépítése 


Ára: 149 Ft 
Megjelent: 1988 


Rácz M,—Horváth A.; 



A könyv részletesen ismerteti a Com¬ 
modore Plus/4-es felépítését. Bemutatja 
az egyes részegységek kapcsolatát mind a 
hardver, mind a szoftver vonatkozásában. 

Részletesen megismerhetjük a különböző 
perifériákkal való kapcsolattartás lehető¬ 
ségeit is. 

A könyvhöz teljes, aprólékosan kommen¬ 
tált ROM lista tartozik. A kapcsolási rajzó- . 

kát mindazok jól hasznosíthatják, akik ma- p IZIK O ITIP 
guk akarják gépüket bővíteni. A könyv ~ 

szerzői különös gondot fordítottak arra. 
hogy a C 16-os géptől való eltéréseket nyil¬ 
vánvalóvá tegyék, s igyekeztek minden 
olyan terület feltárására is, amelyre az ed¬ 
digi könyvekben nem került sor (pl. ACIA, 

RS232. cartridge stb.). 


Rácz Miháty 
Horváth Attila 


Aki megunta már a lövöldözős játékokat, 
szereti a számítógépet és egy kicsit a 
fizikát, nagyon sok hasznosat talál majd 
a könyvben. 

A mechanika tárgyköréből vett számos 
probléma (versenyfeladatok) megoldásá¬ 
nak bemutatására vállalkoznak a szerzők. 

A problémák, ill^>eladal(flegoldások 
megközelítése megoldás¬ 

hoz juttatj^lrarq^S 
A fw^J^'WPLUS/4-es, C 64-es és 
ZX Spec^tOm gépekre kozlik a szerzők 
BAVIC'-eS Pascal nyelvű programokban, 
A Pascal nyelvvel egy külön fejezet fog¬ 
lalkozik. Az itt szerzett ismeretek elegen¬ 
dőek a programok megértéséhez és futta¬ 
tásához. 


Oki mtm 


Ára: 129 Ft 
Megjelent: 1987 
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KÖNYVEK 





T aiÁa 
éi sadmitdataoknika 
jKsekaniAa 


SídmitüUe/uUka 
a töxtánaUm 


A szerzők bemutatják, hogy a történe¬ 
lemtanárok, ill. a történelem iránt érdek¬ 
lődök hogyan használhatják munkájuk so¬ 
rán a számitógépet^Ngm titkolt célja a 
könyvnek, ho^jra(l4A adjon 

mindazíHnjálí'aKlKMyWTOeguktől nagyon 
távoláPldnak^(^(tflP^a számítástechnikát. 
A szertíJí^rom nyíltan, sem burkoltan nem 
akarnak senkit megtanítani programozni, 
azt akarják megmutatni, hogy a „mosó¬ 
gépet sem mosógépszerelö" kezeli. 


dr. Kovács 1. (főszerkesztő); 


Rácz J.—Rácz Zs.: 


Ára:149 Ft 
Megjelent: 1987 


Fizika és 


Matematika és 


számítástechnika 


számítástechnika 


— Mechanika 

A könyv a gimnáziumok második osz¬ 
tályának fizika anyagát dolgozza fel. A fel¬ 
dolgozás és szemlélet újszerűsége abban 
mutatkozik, hogy mind az elméleti, mind 
a gyakorlati problémák tárgyalásánál a 
számítógépes feldolgozás lehetőségét is 
bemutatják a szerzők. A problémák meg¬ 
értése az algoritmikus gondolkodás követ¬ 
kezetes végigvitelét jelenti az Olvasó szá¬ 
mára. A programlisták BASIC nyelven 
C64 es és PLUS/4-es gépekre készültek. 


Dedinszky F.— 
dr, Horányi I.: 

Számítástechnika 
a történelem 
tanításában 


A könyvek a gimnáziumi első és máso¬ 
dik osztályos matematika anyagot dolgoz¬ 
zák fel. Mind az elméleti, mind a gyakorlati 
rész integráltan tartalmazza a számítás¬ 
technikai megoldásokat, ill. tanítja a szá¬ 
mítástechnikát. Messzemenő célja a szer¬ 
zőknek a matematika élvezetes megtaní¬ 
tásán túlmenően algoritmikus gondolko¬ 
dás elsajátítása. 

A programok Commodore 64-es és 
PLUS/4-es gépekre készültek. 


A3ms ibiM'ASíez Zw/f 
• Mabuiustílui 

^ ásdtnitdííitduUktL L 


I. kötet ára: 149 Ft 
Megjelent: 1987 
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PÖTYÖOÖ SZOUkfíUn 


•orpzáM 

géptípus 

Mfiplgnés 

•tn«v«sés 

éré 

056 

C64 

07/4 

DupU BASIC 

20.- 

057 

VC20 

07/4 

Peré* torony 

40.- 

050 

C64 

07/S 

OEONASTCR /Ufordltett/ 

60.- 

059 

C64 

07/5 

GSOMASm /BASIC váltósát/ 

50.- 

060 

C64 

07/5 

Oolyösé 

50.- 

061 

PLUSZ4 

07/5 

Mágyár BASIC 

50.- 

063 

PLUSZ4 

07/5 

Kukkotó - BASIC aonitor 

30.- 

063 

C64 

07/6 

Spritá ádltor ♦ 

50.- 

064 

C64 

07/6 

Hegnö dtroctory 

60.- 

065 

C16 

07/6 

NágyfálbontAátl hárdeopy 

50.- 

066 

C16 

07/6 

Sstáráé vislé 

20.- 

067 

C16 

07/6 

Kukkolö - Szupor psák 

40.- 

060 

C16 

07/7 

Nántoöv 

20.- 

069 

PLU8/4 

07/7 

Ab1ákosó 

50.- 

070 

C64 

07/0-9 

CoMo-do-r# /BASIC váltósát/ 

60.- 

071 

C64 

07/0-9 

Ctmmn do-r# /láfordltott/ 

60.- 

072 

PLUS/4 

07/0-9 

Kukkold - Bdvitátt Bonitor 

30.- 

073 

PUI8/4 

07/0-9 

BkáSPtáo bátUk 

30.- 

074 

PLUS/4 

07/0-9 

PLUTD - Rájsold prográB 

60.- 

075 

VC20 

07/0-9 

HáiOBfOfd 

40.- 

076 

C64 

07/0-9 

Tdbbtényásöá döntések 

40.- 

077 

C64 

07/0-9 

Rásstsr 

30.- 

070 

C16 

07/10 

Append 

40.- 

079 

C64 

07/10 

Kegyítd 

40.- 

000 

C64-H4 

07/10 

Hskrdk 

40.- 

001 

C12e 

07/11 

Struktdrá 

30.- 

002 

Cl 20 

07/11 

telékástáto 

30.- 

003 

C64 

07/11 

Monitorká 

40.- 

004 

C16 

07/11 

Ciaröt-ciars 

30.- 

005 

C64 

07/12 

Gyors scrolt 

40.- 

006 

C64 

07/12 

1541 

40.- 

007 

C64 

07/11-12 

1541 ♦ Nonltorká 

60.- 

ooe 

C16 

07/12 

Lokális váltosdk 

40.- 

009 

C16 

07/12 

Tsksrgö 

40.- 

090 

C64 

06/1 

Pákátá - fehér 

20.- 

091 

C16 

00/1 

Detásitö 

30.- 

092 

C64 

00/1 

Progreakönyvtár 

40.- 

093 

C16 

00/1 

Kátásxtrdfá 

30.- 

094 

VC20 

00/2-3 

TG BASIC 

60.- 

095 

C64 

00/2-3 

Topy Typer 

40.- 

096 

C64 

00/2-3 

Spritá editor supár 

60.- 

097 

C16 

00/2-3 

Kátásströfegép 

30.- 

090 

C64 

00/4 

Hodu1grefiká 

60.- 

099 

C64 

00/4 

Segitség! 

30.- 

100 

C64 

00/5 

Ourited á golyót! 

60.- 

101 

PLUS/4 

00/5 

Egyenesreisolö 

30.- 

102 

PLUS/4 

06/6 

Szótár 

60.- 

103 

C16 

00/7-0 

Gltáriskole 

60.- 

104 

C64 

00/7-0 

Gyors BASIC 

30.- 

105 

C120 

00/7-0 

Super herdeopy 

40.- 

106 

C120 

00/7-0 

Grefikus nyoatetás 

40.- 

107 

C64 

00/9 

Fest velidete 

60.- 

100 

C64 

00/9 

Adóelőleg 

50.- 

109 

C64 

00/9 

Oete bevivó 

30.- 

110 

C64 

00/9 

DCF n/t/ 

30.- 

111 

PLUS/4 

00/10 

Megyerős1tó 

50.- 

112 

C64 

00/10 

Disskkeselö 

40.- 

113 

C16 

00/10 

D18ASSOIBLEII 

30.- 

114 

C64 

00/11 

Bégy képernyő 

20.- 

115 

C64 

00/11 

Ablekok 

20.- 

116 

C64 

00/11 

ASCII képernyő 

20.- 

117 

C64 

00/11 

Pillenetfelvétel 

20.- 

110 

C64 

00/11 

B1inky 

20.- 

119 

C64 

00/11 

Osines vtllogtetó 

20.- 

120 

C64 

00/11 

00 kerekteres usea 

20.- 

121 

C64 

00/11 

Villogtetó 

20.- 

122 

C64 

00/11 

Joystick lekérdeso 

20.- 

123 

C64 

00/11 

Gyors sprite aosgetás 

20.- 

124 

C64 

00/11 

DEF FB - aásképpen 

20.- 

125 

C64 

00/12 

Szuper input 

40.- 

126 

C64 

00/12 

Ugráló színsávok 

30.- 

127 

C64 

09/1 

PRlirr AT 

20.- 

120 

C16 

09/1 

Funkcióbi1lentyúk 

20.- 

129 

C64 

00/12 

Ninihelp 

20.- 

130 

C64 

09/2 

Kási pók 

40.- 

131 

C64 

09/2 

Cslllegos ég 

30.- 

132 

C64 

09/1 

Szelegról lesasre 

40.- 

133 

C64 

09/1 

Kniffel 

50.- 

134 

PLU8/4 

09/1 

Zos^l 

60.- 

135 

C64 

09/1 

Kétoldetes listázó 

60.- 

136 

PLU8/4 

09/1 

Obiektív osztályozás 

50.- 

137 

PLU8/4 

09/2 

Tóaóritó 

20.- 

130 

PLUB/4 

09/2 

Klfeitó 

20.- 

139 

PLU8/4 

09/3 

3 - plusz - 1 aegyerul 

40.- 

140 

PLU8/4 

09/3 

Nepló-keseló 

30.- 

141 

PLUS/4 

09/3 

Anelóg óre 

20.- 

142 

C120 

09/3 

Jevitott renuaber 

40.- 

143 

MIOA 

09/4 

Hegyer kerekterek 


144 

C64 

09/4 

Keret csíkozás 

20.- 

145 

C64 

09/4 

Mozgó feliret 

20.- 

146 

C64 

09/4 

26. sor 

40. 

147 

C16 

09/4 

Optinput 

30. 

140 

C16 

09/4 

Turbo-block 

30. 

149 

C16 

09/4 

Finoa scroll 

30. 

150 

PLUS/4 

09/4 

Aniaáció 

60. 

151 

Cl 20 

09/4 

Pót-funkciók 

20.- 

152 

PLUS/4 

09/5 

Betureder 

40. 

153 

C64 

09/5 

BKP vírus kereső 

40. 

154 

C64 

09/5 

Képautetó 

60. 

155 

C120 

09/5 

VDC aint RAM floppy 

30. 

156 

Cl 20 

09/5 

Joy SPBITC 

30. 

157 

C64 

09/5 

Jevitott list 

30. 

150 

C64 

09/5 

Zenei segédlet 

60. 

159 

C16 

09/6 

Szlnbeállitó 

30.- 

160 

C16 

09/6 

PLUS/1 listázó 

40.- 

161 

PLUS/4 

09/6 

Fest velidete 

60.- 

162 

C64 

09/6 

Belnyilcopy 

40.- 

163 

C64 

09/6 

3H> leblrintus 

60.- 

164 

C64 

09/6 

Mini vírus 

40.- 

165 

C120 

09/6 

VOC-wlndow 

30.- 

166 

C64 

09/6 

Ciakelró 

30.- 

167 

C64 

69/6 

Piros-fehér-zóld képernyő 

20.- 


EGYESÜLET 


Alulírott mogrondelom a követkazö programokat 
a Pötyögd Szolgálattól: 




PROGRAM SORSZÁMA 

ÁRA 

1- MM 

LM'- 

2. 

LU'- Ft 

3. 

LU'- Ft 

4. 

LU'- 


LU'- 


7. 1 

LU 

Ft 

8. 

m 

Ft 

9- MM 

1 1 1 

- Ft 




összesen: | | | db | 

1 1 1 

Ft 

A programokat saját kazettámra káram. 

U 


A programokat saját lamezamra károm, 
(a magfalolö kockát x-oljo ba!) 

U 


A programokat a Szolgálat által biztosított Parrot SS, 

SD lamozre káram (190,- Ft/db) L 

1 1 1 


15' kazattára káram. (30.- Ft/db) 

LU 


POSTA költség (25.- Ft) 

LU 

Ft 

Osszasan; 1 

Ml 

,- Ft 

A fanti összagat bafizattam az Országos Commodore 
Egyesület számlájára: 

OPT XIII., Visegrádi u. 7/b. 

MNB 217-98292 ' 

OTP 565-3610 


111 

UJ 


cím: . 

EGYESÜLETI TAGSÁGI SZÁM: 


DÁTUM: 


aláírás 


Kárem. hogy a Commodore Újság legköze¬ 
lebbi számában jelenjen meg a következő 
szövegű apróhirdetés: 

(minden oszlopba egy betűt Irjonl) 



Egyesületi tagsági szám: . 

Feladandó az újság elmére: 

Commodore Újság Kárpát u.7/a. i.em.ii. 

1133 
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világából 


Hosszú ideje nem hallottunk újdonságokat a GEOS-ról, hacsak 
a 2.0-t nem számítjuk ide. Most azonban egy sor alkalmazás 
megjelenése várható: Geochart. Geobasic, Geoterm, Mega- 
pack... 

A GEOS rendszerhez hamarosan egy sor jó program lesz 
kapható. Elsőként a már régóta várt Geochart-ot (1. kép) említ¬ 
hetjük. A programot ugyanis időközben lefordították németre, 
és az áprilisban meg fog jelenni a német piacon. Kb. 59 márkába 
fog kerülni. Ezzel a programmal mód lesz nyolcféle formátumú 
diagramokat készíteni. Nem lesz gond a to^diagram sem. Itt 
az egyes ..szeleteket" különböző mintákkal tölthetjük ki. A dia¬ 
gramokat a Geochart segítségével mindenféle írásképpel, min¬ 
denféle méretben feliratozni lehet anélkül, hogy át kellene kon¬ 
vertálni a képet a Geopaint formátumra. A GEOS 2.0 alatt az 
értékek beadására még a jegyzettömböt is használni lehet. 

Egy további újdonság neve Geobasic. Ezzel az applikációval 
játékos könnyedséggel lehet a GEOS alatt programokat Imi. 
A programozáskor nem kell csak a Geobasic parancsaira ha¬ 
gyatkozni. Ezenkívül programozhatunk menüket a joystickkel 
vagy az egérrel (2. kép). Sajnos, az még nem tisztázott, mikor 
kerül ez a program az üzletekbe. A Markt& Technik Buchverlag- 
tól kapott értesülte szerint jelenleg folynak a tárgyalások a 
Berkeley Softworks-szel arról, hogy ezt a programot mint külön¬ 
álló terméket, vagy mint Bookware-t (könyv-(-program) forgal¬ 
mazzák-e. 

A Megapack a legkülönfélébb GEOS alkalmazások gyűjte¬ 
ménye. Ebben az esetben a forgalmazás előtt szabad az út. 
Ez a termék Bookware-ként kerül az üzletekbe. A csomag egy új, 
átdolgozott grafika-, egy jelkészlet- te egy soros nyomtatókat 
kezelő meghajtórutinok illesztésére szolgáló konveilert tartal¬ 
maz. A jelkészlet konvertei lel a Printfo- számára írt karaktereket 
lehet GEOS-jelkészletté alakítani. Így a leveleinket a legesleg- 
külonfélébb kinézettel készíthetjük el. A jelenleg meglévő 
190 Printfox jelkészletet 90 GEOS jelkészletté kellett összefog¬ 
lalni. emiatt problémákat okozhat, ha csak a méreteket szeret¬ 
nénk megváltoztatni. 

A grafika-barátoknak a Megapack nagy grafika-könyvtárat 
kínál. Ebben számtalan kis kép található. Ezt a komoly szoftver¬ 


csomagot a Mark* ^ Tpchnik Buchverlag március végén jelen¬ 
tette meg. A könyvet te a három lemezt tartalmazó csomag ára 
kb. 59 márka. 

A GEOS 128 V2.0 német változatát április elején várhatjuk. 
Egy tesztpéldány (egyelőre angolul) rendelkezésre áll, így mód 
van egy kis előzetes ismertetésére. A 40 karakteres képernyőn 
a GEOS 128-ast nem tudjuk megkülönböztetni a GEOS 64-től. 
Csak két plusz almenü tűnik fel: a Switch 40/80 és a Boot). 
A 80 karakteres képernyőn a GEOS 128 V2.0 már inkább a jelen¬ 
leg kapható GEOS 128-ra emlékeztet. A színes piktogramok, 
amelyek a 40 karakteres képernyőn az adatállományok fölisme¬ 
rését könnyítik meg nagyban, sajnos a 80 karakteresen nem lé¬ 
teznek. Ennek hardveres oka van, a V[X chipben igen kevés a 
tárolóhely. 

Az új GEOS 128-as változat időközben kiválóan együttműködik 
a 1581-essel. Irási/olvasási hibák nem jelentkeztek. A program 
ára lapzártáig ní>ég nem derült ki. 


A GEOS ésaTAF 

A távadat-feldolgozás szerelmesei a közeljövőben egy olyan 
program birtokába juthatnak, amely önmagáért beszél. Ez pedig 
a Geoterm (3. kép). Időközben a programot erősen átdolgoz¬ 
ták, javítottak rajta. A program például képes a VT 52 emu¬ 
lációra, te ismeri az X-modem üzemmódot is. A javított vál¬ 
tozatba a biztonság kedvéért beépítették az 1200 baud-os 
átvitel lehetőségét is. Sajnos, a tesztpéldányunkban, amely 
egyelőre csak előzetes verzió, ez a rész m^ hiányzik. A prog¬ 
ramozó most gondolkodik a Cl 28-as változaton. Az MÁT Buch- 
verlagtól kapott információk szerint a 128-as Geoterm változat 
mindkét képernyőt (40/80) kezelni fogja. A terminálprogram 
kb 69 márkába fog kerülni. 

Mindent egybevetve a GEOS applikációkról szóló hírek sokat 
ígi röek. Ezek a programok valóan mindenkinek kínálnak va¬ 
lami használhatót. 
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1. kép: A Geochart program adatokat nyolcféle diagram képében 
tudja megjeleníteni. 


^tos 


: mtfKH i mtnuS 

oction i ^ 
ocboní 


actkxú 


W m a h et of sab mmis: !♦! Í !♦! 




kCMS: 


T|» 


5Jt 


íifn?] 


Quit 


y 




Tippek és trükkök 
— a GEOS-hoz 


A GEOS operációs rendszer a kezdőknek és a profiknak is 
kihívás. A hozzáadott tipekkel és trükkökkel, mint amilyen a 
GEOS és az NLO, a kezdők is GEOS profikká válhatnak. 


A GEOS ÉS AZ NLO 


Számos olvasó panaszkodik a Geowrite dokumentumok nem 
éppen megdöbbentő minőségén. Egy apró trükk segítségével 
azonban egy NLO nyomtatón a GEOS-szal is lehetséges NLO 
írást létrehozni. Ehhez a Geomerge programra és a nem arányos 
„Commodore" jelkészletre van szükség. Először meg kell írni 
a szöveget a Geowrite segítségével. Ékezeteket és különleges 
jeleket azonban nem lehet használni. Ha kész a levél, hívjuk be 
a Geomerge programot, a dokumentumot mint formaszoveget 
deklaráljuk és az ezt követő kérdésre „nem"-mel válaszoljunk. 
A nyomtatási arányok beállításánál csak annyit tegyünk, hogy 
az NLO mezőt választjuk ki, és a nyomtatót az NLO módba kap¬ 
csoljuk. A szövegben álló grafikákat és ékezeteket nem nyom¬ 
tatjuk ki. 


A RAJZABLAK TÖRLÉSE 


Amikor egy kép rajzolásának fogunk neki, gyakran gyorsabb, 
ha a teljes grafikát közvetlenül töröljük. Erre a célra nincs a 
GEOS-ban megfelelő funkció. Egy módszerre azonban, amellyel 
a rajzfelületet gyorsan törölhetjük, magam bukkantam rá. A leg- 
logikusabb az. ha az új rajzot egy új névvel kezdjük. Más lehető 
ség szerint válasszuk ki a teljes rajzfelületet editálás! felületnek. 
Ezt azután gond nélkül „szabaddá" tehetjük. Néha ilyenkor 
„keretrészek" maradhatnak vissza, amelyeket így nem lehet 
eltávolítani. Ezt a leggyorsabban és a legegyszerűbben úgy lehet 
torolni, ha a radírgumira gyorsan kétszer egymás után „rá- 
lovunk". 


ÜRES OLDAL TÖRLÉSE 


2. kép: A Geobasic segítségével GEOS alkalmazásokat írhatunk 
BASIC parancsokkal vagy menükkel. 


l9«os 
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3. kép: A Geoterm még egy VT 52 emulációt is kínál a TAF játékok 
vezérléséhez. 


Gyakran előfordul a GEOS 1.3 és a GEOS 128 alatt az. hogy 
üres lapok állnak a tartalomjegyzékben. Ezek az üres lapok 
a lemez „kitakarítás" után is megmaradnak. Egy lemezes moni¬ 
torral azonban ezek eltávolítása lehetséges. Mi az, amire figyel¬ 
nünk kell? 

Először másoljuk át az adatállományokat úgy, hogy az üres 
lap legyen az utolsó. Vegyünk elő ezután egy tetszőleges leme¬ 
zes monitort. Olvassuk be a 18-as track 3 as szektorát. A1581 -es 
esetében természetesen a 40-es track 1-es szektorát hívjuk be. 
Az első két byte itt az, amely megmutatja a logikailag következő 
blokk track- ^ szektorszámát. Ha az utolsót elértük, akkor a két 
byte értéke $00 és $FF. Ez jelzi a tartalomjegyzék utolsó szek¬ 
torát. Ezzel a következő blokkokról nem veszünk tudomást. 

A GEOS 2.0 alatt a directory egyes lapjait a <CTRL S> és a 
<CTRL T> segítségével problémamentesen törölhetjük vagy 
szúrhatjuk be. Olvassuk el ezzel kapcsolatban a GEOS 2.0 teszt¬ 
jét IS a Maigaz ín e számából. 


KONVERTÁLNI VAGY SEM? 

Gyakran kérdezik, konvertáljuk-e lemezeinket a GEOS for¬ 
mátumra vagy sem. A normál C64-es operációs rendszerrel föl- 
írt formátumok konvertálása semmi gondot nem okoz. Ha azon¬ 
ban a lemez blokkfoglaltsági térképe (BAM, Block Allocation 
Map) nem teljesen korrekt, mint az a másolás ellen védett leme¬ 
zeknél szokásos, a konvertálásnál adatvesztés léphet föl. Azok- 




















































































SZOFTVER 


Cf 


nál a lemezeknél, amelyek 40 trackes formátumúak (például 
a Dolphin-DOS), valamint az originál diszkek esetében, alap¬ 
vetően ne konvertáljunk. Egy programokat tartalmazó lemez 
esetében az alábbi módon járjunk el: 

1. Nyissuk meg a nem-Geos lemezt. 

2. Nyomjuk meg a tűzgombot a „nein" (nem) mezőben. 

3. Válasszuk ki az „Aufráumen” (takarítani) pontot a Diskette 
menüben. 

4. Nyissuk meg a lemezt még egyszer. 

Amíg a GEOS alatt dolgozunk, nagyobb problémákra nem 
kell számítani. Nehézségek csak akkor jelentkezhetnek, ha a 
GEOS lemezeket a GEOS-on kívül használjuk. Előfordulhat 
olyan helyzet, hogy a lemez még GEOS formátumú, a valóság¬ 
ban azonban a specifikus információk (pl. a keret helye a leme¬ 
zen) rég szét van rombolva. Ebben az esetben csak az használ, 
ha a még jó állományokat átmásoljuk egy lemezre, és a hibásat 
újraformatáljuk. 


nyomtatóproblEmák megoldása 


Igen sok olvasó küszködik nyomtatóproblémával. Legyen az 
az MPS1(XX)-es IBM módja, a Star LC10-es vezérlése stb., stb. 
Épden ezért adunk közre nyomtatóillesztési tanácsokat. 

Az MPSlOO-es az IBM módban csak akkor nyomtat, ha az 1—1 
jelű DIP kapcsoló ON állásban van. Nyomtatómeghajtásnak 
ekkor az IBM 5152+ állományt használhatjuk. 

A Praesident 6313C esetében a 6—1, &-2. 7—1, 13—1, 13—2, 
14-1,14-2 és a 18-2 jelű DIP kapcsolókat kell ON állásba bil¬ 
lenteni. így az Epson LXSOO-as meghajtó használható. 

Egy Epson LX800-as a userporton üzemeltetve az FX80(GC) 
meghajtóprogrammal viszonylag jó minőségben képes nyom¬ 
tatni. 

Ha bárkinek még problémája lenne a printerével, akkor az 
alábbi címre írjon; 

Markt & Technik Buchverlag 
Stichwort: Druckeranpassung zu GEOS 
Hans-Pínsel Str. 2.. D—8013 Haar bei München 

Egy ingyenes lemezt várhatunk erről a címről, amelyik több 
nyomtat^eghajtót tartalmaz. Ha ezek közül egyik sem mű¬ 
ködne. akkor a Printer Driver Creator-ral el lehet készíteni egy 
megfelelő nyomtató meghajtót. 

Még egy útmutatás a Geofile-hoz. Ebből a programból sajnos 
az első példányok hibásak voltak. A hiba abban jelentkezik, 
hogy a Geofile nem találja meg a nyomtatómeghajtót annak 
ellenére, hogy az a lemezen van. Ha valakinek ez a változata 


lenne meg, ingyen kicseréltetheti a fönti elmen (az eredeti 
lemez beküldé^vel). 


MIRE JÓ AZ „ANZEIGE"? 


A menüsávban álló „Anzeige" (kijelzés) pontot számos fel¬ 
használó egyáltalán nem használja ki. Ha az állományok kijel¬ 
zését a „piktogram" módon kívül másra állítjuk, (látszólag) 
nem lehet használni ezt a segédfunkciót. Mire jó akkor ez? 

Nos, tételezzük fel. hogy a Geowrite program valamelyik le¬ 
mezünkön található. Ha ezt akarjuk megkeresni, állandóan meg 
kell nyitnunk a vizsgálandó lemezeket, ami viszonylag sokáig 
tart. Minden esetben be kell ugyanis olvastatni a piktogramok 
rajzállományait. Ez azonban nem szükséges, ha a kijelzési mó¬ 
dot a ..piktogram"-ról a „nach Grosse", azaz méret szerintire 
állítjuk. A GEOS ekkor az adott lemezen található állományokat 
nagyság szerint rendezve jeleníti meg. Mivel a Geowrite meg¬ 
lehetősen hosszú, az mindjárt a lista elején lesz. így azt hamar 
meg lehet találni. Ha a program megvan, újra „piktogram" ki¬ 
jelzésre lehet kapcsolni. 

Az állományokat azonban nemcsak a méret szerint lehet ren¬ 
dezni. Az állománytípus (lásd a mellékelt táblázatot), a dátum 
és az ABC sorrend is választási kritérium lehet Ezzel sok prog¬ 
ramot lehet viszonylag gyorsan megtalálni. 


AZ ÁLLOMÁNYOK TÍPUSA 


0 nem 

1 BASIC 

2 Assembler 

3 adatok 

4 rendszer 

5 segédprogram 

6 alkalmazás 

7 dokumentum 

8 jelkészlet 

9 nyomtatómeghajtó 

10 beviteli meghajtó 

11 lemezmeghajtó 

12 startprogram 

13 ideiglenes 

14 onv^rehajtó 

15 C128 bev. meghajtó 




AKCIÓ! 


\ 


A FLOPPY 
ÖNNEK 
ING YEN 
VAN! 


8 db program VC20-ra 

220 — 

— Megrendelhető 

12 db program Plus/4-re 

320- 

utánvéttel! 

16 db program C128-ra 

420,— 

— Megvásárolható 

20 db program C16-ra 

520,— 

az egyesület 

24 db program C64-re 

620,— 

irodájában kedden 

32 db program C64-re 

820,- 

és csütörtökön! 


o 
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Tip^k 



FLASH-LOAD 

A közismerten lassú 1541-es floppy töltési sebességének nö¬ 
velésére több program létezik. íme. egy újabb. 

Sebessége az eredetihez képest kb. 6-szoros. Ez a gyorstöltők 
kozott átlagos. Tapasztalatom szerint a HYPRA ennél vala 
melyest lassabb, a MEGALOAD és azonos sebességű, de 
lényegesen megbízhatatlanabb. A DISK TURBO-l-4 megbíz¬ 
ható & ugyanilyen gyors, de a képernyő memóriát használja, 
ami néha hátrány. 

A program RUN-nal indítva újra definiálja a funkcióbillen¬ 
tyűket. majd az ezeket követő $0580—07d8 területre másolja 
magát. Ettől fogva a DLOAD és LOAD "... ”.8 műveletek fel¬ 
gyorsulnak. Mint minden gyorsított soros buszt használó prog¬ 
ramnál. a soros buszra csak az egy darab lemezegység lehet 
kapcsolva. Más egységeket elég ez időre csak kikapcsolni. 

Az F-billentyűk közül az 1-es, 4-es és 8-as törlődik, a többi 
funkcionálisan a bekapcsolási állapotnak megfelelő lesz (néhol 
rövidítve van a parancs). 

Tetszőleges hosszúságú egyrészes programot képes betöl¬ 
teni. amely nem használja az említett területet (a HYPRA-nál 
ez 233. a MEGALOAD-nál 246 blokk). Természetesen MONITOR- 
ból is működik, és használható a másodlagos cím (.8 vagy .8,1). 
A több részes programoknál lényeges, hogy felülirják-e a terü¬ 
letét és a további részeket a LOAD-vektoron keresztül toltik-e. 
Ha a terület nem változik és a részek a vektoron keresztül töl¬ 
tődnek, a FLASH-LOAD használható. Mivel ezeket csak a prog¬ 
ramok elemzésével tudhatjuk meg pontosan, egyszerűbb ki 
próbálni az eseteket. 

A töltő floppy-programja a C64-re készült FLASH-COPY V2.0 
rutinján alapszik. Nagy Tamás 


leee rém q 

1.001 s^M * c- ujsfc soRezfri' ITÍ * 

O 1002 RÉM 

100'3 RÉM * FLftSH-LOftó 0 O 

„ 1004 RÉM 0000000000000 * 000000 * 000*0000 
^ 1005 RÉM ♦ C-16,C-116,Pt_US.-'4 4 

1006 RÉM 000000 * 000000000000 * 0 * 00*0000 ^ 

Q 100? RÉM • MfUjV THMfiS 1^09.01.20. 0 

1000 RÉM ♦l*4*4*444'*4*444*l*4*4*444*'*4»4 q 

jOOO OflTM 16,10.C4,O?,9E.J4,31,03,022? 

O 3001 OfiTfi 30,3M, 00, 3M, 54,4F,40,20,0234 

3002 OMTft 48,2E,5e,2E,O0,0O,00,4t,,0142 O 

3003 OMTO 4<;,41,53,40,20,57,41,52,023F 
^ 3004 OftTfl 45,EH,EM,ER,ftS>,60,OO,2E,04£? 

3005 OMTft 03,05,eD,2F ,03,1-30,00,0210 O 
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3006 

OOTO 

3007 

OOTO 

3008 

OOTO 

3009 

OOTO 

3010 

OOTO 

3011 

OOTO 

3012 

OOTO 

3013 

OOTO 

3014 

OOTO 

3015 

OOTO 

3016 

OOTO 

3017 

OOTO 

3018 

OOTO 

3019 

OOTO 

3020 

OOTO 

3021 

OOTO 

3022 

OOIO 

3023 

OOTO 

3024 

OOTO 

3025 

OOTO 

3026 

OOTO 

3027 

OOTO 

3028 

OOTO 

3029 

OOTO 

3030 

OOTO 

3031 

OOTO 

3032 

OOTO 

3033 

OOTO 

3034 

OOTO 

30 35 

OOTO 

3036 

OOTO 

3037 

OOTO 

3038 

OOTO 

3039 

OOTO 

3040 

OOTO 

3041 

OOTO 

3042 

OOTO 

3043 

ooro 

3044 

OOTO 

3045 

OOTO 

3046 

OOTO 

3047 

OOTO 

3048 

OOTO 

3049 

OOTO 

3050 

OOTO 

3051 

OOTO 

3052 

OOTO 

3053 

OOTO 

3054 

OOTO 

3055 

OOTO 

3056 

OOTO 

3057 

OOTO 

3058 

OOTO 

3059 

OOTO 

3060 

OOTO 

3061 

OOTO 

3062 

OOTO 

3063 

OOTO 

3064 

OOTO 

3065 

OOTO 

3066 

OOTO 

3067 

OOTO 

3068 

OOTO 

3069 

OOTO 

3070 

OOTO 

3071 

OOTO 

3072 

OOTO 

3073 

OOTO 

3074 

OOTO 

3075 

OOTO 

3076 

OOTO 

3077 

OOTO 

3078 

OOTO 

3079 

OOTO 

3080 

OOTO 


B9,4F,10,99,5O,O5,CO,O0,03He 
F7,B9,4F , 11,99,50,06,1.0,0304 
O0,F7,B9,4F,12,99,50,O?,03OE 
ce,i;0, ?B,O0,F5,60,O0,00,042O 
00,06,05,00,06,04,04,00,0019 
44,4C,4F,41,44,22,44,49,0213 
02,3ft,00,44,53,41,56,45,028C 
22,52,05, 3fH,0ü,4C,C9, 3M,02DF 
0O,O6,B4,O4,B5,H5,ME,C9,049C 
08,F0,0 3,4i:,4M,F0,H6,HO,0 3O4 
20,60,F1,H9,60,05,HO,20,03CC 

05,F0,fi5,ME,20,FR,EO,O5,04F4 
RO,20, lR,EE,20,Ot),EC,O5,03Fl 
90,R5,90,4FI, 40, 60, 20, 20,035E 
OB, EC, 85, 9E, OR, ÜO, OO, R5,04R1 
64,85,90,05,65,85,96,20,04.'3 
06,FF,20,11,F2,RO,O6,FF,04?F 

29, EF,80,06,FF,09,02,20,0375 
C3,FF,20,16,06,90,06,00,0346 
06, FF , 09,10,6Ú, 06, FF , 4C , 02FI. 
26, 08,20,04,06,09,08,20,029E 
ei,FF,09,6F,20,93,FF,00,0510 
04,B9,16,06,20,08,FF,88,0328 
10,F7,20, RE, FF,20,49, 06,0343 
00,06,FF,09,10,80, 06, FF,0350 
B0,00,06,90,00,02,C6,9E,04F6 
C6,9O,O6,9O,O4,9E,60,O6,044E 
07,45,20,40,09,00,20,64,0246 
FF, 09,6F, 2-0,96, FF, 20,05,0491 
FF,C9,32,00,90,17,48,20,0311 
02,FF,68,20,02,FF,20,05,04EF 
FF,C9,OO,FO,05,20,O2,FF,04BB 
90,F4v 20,30,F6,20,OB,FF,0403 
28,60,70,00,19,FF,40,20,0320 
02,06,09,02,60,45,20,02,0320 
06,85,O6,20,O2,06,O4,OE,03B3 
F0,02,O9,FE,85,OF,O0,00,049O 
24, OO, 30,0i:, 20,02,06,20,0225 
02,06,C6,OF,C6,OF,C6,00,0595 
20,02,06,91,90,C8,C4,OF,0461 
00,F6,18,90,65,90,85,90,0490 
90,02,E6,9E,O5,OE,O0,8F,052O 
C0,FE,F0,07,20,02,06,00,0445 

18.90, F5,68,80,19,FF,58,0402 
4C,16,06,09,04,85,01,24,01C4 
01,10,FC,O9,00,85,01,O2,02OE 
06,CO,EO,O0,FC,O2,04,O5,O4O1 
01,80,19,FF,8C,19,FF,8E,0300 
19,FF,0O,08,OO,26,66,28,0238 
2€,B6,2E,19,FF,CO,O0,E7,04O3 
05,66,49,FF,60,09,36,02,0484 
07,05,03,86,04,00,00,09,0262 
06,84,00,84,05,85,06,09,0324 
08,20,61,FF,09,6F,20,93,0303 
FF,09,40,20,08,FF,09,20,0492 
20,08,FF,09,57,20,08,FF,048E 
00,00,05,05,20,08,FF,05,0366 
06,20,08,FF,09,20,20,08,035E 
FF,B1,03,20,O8,FF,C8,C0,0502 

20.90, F6,20,06,FF,18,98,0423 
65,03,85,03,90,03,E6,04,0260 
18,98,65,05,85,05,90,02,0236 
E6,06,C9,02,90,61,60,09,0401 
O3,85,31,4C,O1,F4,20,18,0302 
Cl,05,18,06,19,85,0C,86,0354 
00,09,£0,58,85,03,05,03,0316 

30, FC,C9,02,90,20,09,00,0410 
05,03,05,03,30,FC,09,60,0365 
85,03,05,03,30,FC,C9,02,0327 
90,0C,78,48,20,78,06,68,0262 
O2,03,58,4C,0O,E6,78,00,8351 
00,20,78,06,69,00,03,20,0170 
78,06,C8,00,£7,00,00,03,0360 
FO,16,40,C9,36,60,15,20,0332 
46,F2,CO,01,03,F0,00,90,0396 
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0 

3081 

ORTR 08.RE.01.03.68.4C.0E.06.0189 



3082 

ORTR 98.4C.9E.C1.R9.66.20.78.03RR 

o 


3083 

ORTR 06.82.03.98.40.40.09.89.02F6 


o 

3084 

ORTR 89.2C.00. 18.10.F8.R9.10.0280 



3089 

ORTR 80.00.18.R2.04.R9.00.06.01FR 

o 

o 

3086 

ORTR 89.2R.0R.06.89.2H.0H.8O.0209 


3087 

ORTR 00.18.CR.O0.F0.R2.01.O0.0419 



3088 

ORTR 00.ER.ER.R9.0F.80.00.18.0331 

u 

o 

3089 

ORTR 60.00.00.00.00.00.00.00.0060 



4030 

BR-4097 

o 


4031 

PRINT'KOMTROL HÓUL 


0 

4032 

FORK-0TO89 



4033 

C-0 

o 


4034 

FOR8-0TO7 


o 

4039 

REROR* 



4036 

c«c-*^oec<R*> 

o 


4037 

NEXTB 


o 

4038 

REROR* 

o 


4039 

I FCOOeC C R* > THENPRI NT “ RORT H1BR 

o 


fl"3000-*^K"-ROIK SORBRrr l“■STOF 



4040 

HEXTK 

o 


404.1 

PRIHT*K,ONTROL KÉSZ ( 


o 

4042 

PRINT-BEIRRS lrO<JL t 



4043 

RESTORE 

o 


4044 

FORK-0TO89 


0 

4049 

FORe-0TO7 



4046 

REROR» 

o 

o 

4047 

P0K.eBR+K4i8-»e. DEC <R» > 



4048 

NEXTB 

o 


4049 

REROR* 


o 

4090 

NEXTK * 



4091 

PRINT-OK.. 

o 


4092 

PRINT-MENTSD KI 1 


o 

4093 

PR. INT “RUN-NHL HÓUL. 



4094 

POK.E49.202 ■ POKe46.18' CLR ■ ENO 

o 

o 
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BASIC-LISTA- 

SCROLL 

Valószínűleg sokakban felmerült a gondolat a JCL-ASSEMB- 
LER láttán, hogy a lista kurzorral való fel-le mozgását jól lehetne 
BASIC programok szerkesztéséhez is használni. Ehhez azonban 
mindig be kell tölteni a JCL-t, ami tekintélyes méretű (lemezen 
66 blokk). A problémát oldja meg ez a rövid program. 

A BASIC töltő lefutása után mentsük ki a kész programot 
(3 blokki). 

Indítása: RUN. Ezután dolgozhatunk a gépen. A kurzor telje¬ 
sen normálisan működik, de ha megnyomjuk a CTRL és HELP 
gombot együtt a BASIC programunk attól a sortól fog a kép¬ 
ernyőre íródni, amelyiken a kurzor éppen állt Most a fel és le 
nyilakkal mozgathatjuk a listát a RETURN-nel előre lapozha¬ 
tunk. A szerkesztőbe a RUN/STOP-pal léphetünk vissza. Ter¬ 
mészetesen a lista ott marad, ahová beállítottuk. 

A CTRL-HELP. majd a RUN/STOP megnyomásakor a keret 
színe (oda-vissza) megváltozik. így mindig látható, melyik üzem¬ 
módban vagyunk. 

A programnak két változata van. ezek csak a memóriabeli el¬ 
helyezkedésükben különböznek: 

Az első változat $059&—07AA-ig tart. Ez rendszerterület így 
BASIC programoktól nem vesz el helyet és nem zavarja a 
grafikus üzemmód sem. Ellenben futtatáskor előfordulhat, hogy 
a BASIC-stack beleír, és akkor RUN/STOP-RESET után újra 
kell tölteni. 

A második változat $0FE8—11F9-ig tart. Tehát 512 byte-ot 
foglal le a BASIC memóriából. A grafikus üzemmód tönkreteszi, 
de mindenféle programfuttatást, egyebet kibír. 


Mindkét változat a RUN/STOP-RESET után a SYS 3048 [vagy 
SYS DEC ("OBE8)] utasítással újraindítható, kivéve persze, 
ha felül íródtak. 

Az első változat forráskódját közöljük. Pötyogőszolgálatunktól 
a második változat is megrendelhető. 
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o 

o 

o 

o 

o 

o 


leoe 

loei 

iee2 

1003 

iee4 

lee? 

teee 

ie«7 

leee 

zeoe 

2eei 

2002 

2003 

2004 
2009 
2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 
2019 
2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 
2029 
2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 
2039 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 
2049 

2046 

2047 

2048 

2049 

2090 

2091 

2092 

2093 

2094 
2099 

2096 

2097 

2098 

2099 
2060 
2061 


RÉM 

RÉM « C- UJSOO SORSZ«1H60 4 

RÉM 

RÉM * BRSIC-LISTfi-SCROU. *8999 * 

RÉM i***************************** 

RÉM * C-16,C-116,PL.IJS/4 • 

RÉM «««««*««•«««««•*•««•««««««««* 

RÉM • MfiOV THMRS 1989.01.20. • 

RÉM <*«««««««<»««•«««««««•««•«««««>« 

ORTR 10.10.C9,07,9E.34,31.32.022E 
OMTn 38,20.08.0E.22.14.O4.4F.01C7 
ORTR 40.20.46.92.4F,40.20.CS.0289 
ORTR 2E.08.2E.00. 00 . 00.00.20.0194 
ORTR 9C.F3.R2.00.80.90.10.90.03F8 
ORTR E7.0e.CR.O0.F7.eO.9£.10.04R’. 
ORTR 9O.99.09.E8.O0.F7.BO.9E.0909 
ORTR 11.9O.99.06.E8.O0.F7.BO.0489 
ORTR 9E.12.90.99.07.E8.E0.11.0386 
ORTR O0.F9.2O.Ee.0B.4C.7E.e6.0428 
ORTR 78.R9.99.80. 14.03.R9.09.0.30C 
ORTR 80. 19. 0 : 3 . 98.60.R9.81.30.0283 
ORTR 12.R9.7F.20.70.08.29.04.0202 
ORTR 00.09.R9.FE.20.70.08.29.0414 
ORTR 08.F0.03.4C.0E.CE.ro. 19.02E9 
ORTR FF.49.FF.80.19.FF.R9.0E.04R3 
ORTR 80.14.03.R9.CE.80.19.03.02C0 
ORTR RO.09.FF.8O.09.FF.98.20.O3C2 
ORTR 82.OF.20.0O.07.90.0C.R9.02OR 
ORTR 28.R0.03.20.94.04.RR.88.0288 
ORTR 20.97.04.89.14.86.19.20.020F 
ORTR 88.08.20.71.07.R0.01.20.0289 
ORTR O1.04.F0.1F.CS.20.R2.07.0379 
ORTR 20.40.8e.20.8C.OC.20.F8.038E 
ORTR 06.R9.CO.C9.18.F0.0C.R0.03F9 
ORTR 00 . 20.R2.07.86.9F.89.60.0293 
ORTR 4C.E9.09.78.R9.7F.20.70.036R 
ORTR O8.0R.90.ie.R9.OF.20.70,03R8 
ORTR Oe.4R.B0.03.4C.RF.06.29.0302 
ORTR 04.F0.27.R9.FE.20.70.O8.042O 
ORTR 29.02.O0.OF.4C.7O.07.R9.0393 
ORTR 7F.20.70.D6.0R.90.F8.98.03O4 
ORTR R9.O0.89 .EF.ro. 19. FF. 49.0428 
ORTR FF.80.19.FF.20.E8.08.4C.O403 
ORTR 8E.FC.98.R6.CO.F0.06.20.049O 
ORTR 0O.OO.4C.F9.06.20.CF.OC.03FC 
ORTR 20.00.07.89.14.86.19.90.01F8 
ORTR 03.4C.F9.06.2O.88.OE.20.02F3 
ORTR 71.O7.90.36.R6.60.E4.2C.0394 
ORTR 90.30.86.El.CR.86.60.R0.0477 
ORTR FF.20.O1.04.C9.E1.F0.09.048F 
ORTR e8.F0.1F.O0.F4.88.20.O1.04D4 
ORTR 04.C9.9F.F0.02.O0.ER.ER.04BE 
ORTR 18.98.69.9F.89.9F.90.02.02ER 
ORTR E6.60.R0.02.20.R2.07.20.02O1 
ORTR 4O.88.20.9e.OC.20.9R.O8.03F4 
ORTR 4C.F9.06.98.R6.CO.E0.18.0408 
ORTR F0.06.20.00.OO.4C.F9.06.033R 
ORTR 20.e2.OF.20.0O.07,60.27.028C 
ORTR 89. 14.86.19.20.8C.0C.20.02Oí: 
ORTR 71.07.90.29.R0.00.20.Fi2.028F 
ORTR 07.89.60.86.9F.R0.01.20.0292 
ORTR 01.04.Fe,19.C8.20.R2.07.0366 
ORTR 86.14.89.19.4C.E9.09.89.0313 
ORTR CO.F0.06.20.OO.OO.4C.6C.03O9 
ORTR 06.20.F6.06.4C.0F.06.R9.O22O 
ORTR CR.18.69.C8.80.00.FF.R9.0440 
ORTR C9.69.00.E9.0e.8O.0C.FF.036E 
ORTR 60.R0.00.84.E6.84.E7.88.049O 
ORTR C8.30.4C.B1.C8.29.7F.C9.042E 
ORTR 20.F0.F9.C9.3R.B0.40.38.0430 
ORTR E9.30.90.3B.89.E3.06.E6.0438 
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2ee2 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 


OflTft 26.e7,eO.3F,R5.e6>85.E4.04F0 
D«Tfi R5.e7.85.E5<06.e6/26.E7,04E.F 
OflTfi 60,31,06.E6.26.£7,80.26.0385 
0«Tn f»,E6.65,E4,85.E6.R5.E7,05CB 
OfiT« 65,E5,65,E7.B0,1O,R5,E6,O50E 
ORTR 65,E3,85.E6,R5,£7,69.00.0468 
ORTR 85,E7,80,0F.4C.14,07.65,0337 
ORTR E6,05,E7,F0,06,R5,E6,R6,04F9 
ORTR E7,1S,60,38,60,20,3O.8R.02O£ 
ORTR R5,5F,85.E2,R6,60,e6,E3,04OR 
ORTR 60,58,R6,CO,E0,18,F0,06,0419 
ORTR 20,8C,OC,4C,F5,06,20,82,0371 
ORTR OF,20,0O,07,60,03,4C,OF,02F1 
ORTR 05,R5,CO,O0,03,4C,F5,06,0391 
ORTR 20,00,00,46,86,07.20,01,0208 
ORTR 04,Ce.RR,46.01,04,00,00,0297 
BR-4097 

PRINT"KOMTROLL INOUL I” 

FORI-0TO77>6-0 

FOR.B-0TO7 

RERORF 

6-6*0E6<R»> 

HEXTB 

REROR* 

IF0E6 C R* )06THENPR. IMT " RORTH186 
R”2000+1“-EOIK SORBRM n!">STOP 


O 

O 

O 

O 

o 

o 

o 

o 

o 


_ 2087 NEXTI 

O 2088 PRINT“KONTROLL KES2 1“ 

2089 PRINT'BEIRRS INDUL t" 

Q 2090 RESTORE 

2091 FOR1-0TO77 

2092 FOR6-0TO7 
O 2093 REROR* 

2094 P0KE6R+I«8+B,0E6<R*> 

2095 NEXTB 
O 2096 REROR4 

2097 NEXTI 

2098 PRINT“OK." 

O 2099 PRINT“nENTSO KI 'SRVE'-VEL I!( 
2100 PRINT 

_ 2101 PRINT" IIOITRSR 'RI>1'-NRL . 

2102 PRINT"RKTIVI7RLRSR 6TRL+HELP . 

2103 PR.INT“FUNKeiOK> KURZOR. FEL-LE. 

Q 2104 PRINT" RETURN. 

2105 PRINT-KILEPE8 • RUN/STOP 

2106 P0KE45.111■POKE46,18'6LR'EN0 

O 



o 

o 

o 

o 

o 

o 

o 

o 


2 x2-es karakterek 
C= Plus/4-en 

A program segítségével a nagy felbontású képernyőre négy¬ 
szeres (2x2) nagyítású karaktereket írhatunk. A program hívá¬ 
sakor a bal felaS karaktemegyed koordinátáit kell megadni 
{X=0—38.Y=«0—23). Ha a szöveg egy sorba nem fér ki, a sor 
végén „dupla" soremelés hajtódik végre. A program a szín- 
memónába nem ír, így a képernyő korábbi színei nem változnak 
meg a szöveg kiírásával. 

A karakterkészlet kezdőcímét (a CHAR utasításhoz hason¬ 
lóan) a $02e4 (740) elmen állíthatjuk be. Alapértelmezése $dO 
(208), azaz a nagybetűk-grafikus jelek készlet íródik ki, $d4 (212) 
beírásával a kisbetűk-nagybetúk készletre kapcsolhatunk, de 
természetesen saját készletet is használhatunk. 


A program BASIC betöltője először végigellenőrzi az adato¬ 
kat, majd az ellenőrzőósszegeket, s csak ha mindent rendben 
talál, ír bele a memóriába. Az 1. listában szereplő program a 
$0332 (818)-as címen kezdődik, és nem helyezhető át más terü¬ 
letre, csak a 2. lista módosításainak begépelésével. A program 
munka- és adatteruletként használja a $dO—$d9 és $02cc— 
$02db címeket. 

Hibátlan futás után a kiírás a 
SYS <kezdőcím>,X,Y,<szoveg>[,inverz?] 
utasítással indítható (a paraméterek a CHAR éval egyeznek 
meg). 

Hibalehetőségek: a koordináták nem esnek a 0—38, illetve 
0—23 intervallumba, a szöveg üres stnng, vagy nincs grafikus 
terület. 

A program jót használható képújságokban, oktató- és más, 
nagyított írást igénylő programokban. Kimán Tibor 


o 

1 REM"4i4i4iééé*é»4i4i*4<4i4*éé4(4i4i4i4<4i*4i4i4i4i4i4i*i«i 

2 REM"é ♦ 

3 REM"é C“ UJ3ftG SORSZRM-tíf ♦ 


O 

o 

4 RÉM"* 2X2 -ES K.RR.RK.TER.EH. C»PLUS4 ♦ 

^ RÉM"* * 

e RÉM"* PR.OOR.RM> K.RMHH TieOR ISíOtí. * 


O 

o 

7 RÉM"* * 

8 RÉM"********************************* 


O 

0 

10 PRlMT"ltU_EM0R.2ES IHÜUL?" 

20 H=0 

30 FÓR 1=0 TO 33>8*0 


O 

o 

40 FÓR J=0 TO 7 

50 REflO X» 

60 S*S40EC<:X»> 


O 

o 

70 MEXT J 

80 REHO >OS-OS+DEC<;S»> 

90 IF SODECCG*) THEH PRIHT"RÜRTH1BR R2" 

1000+1 " . SORBRH •" > H=H+1 

O 

o 

100 HEXT I 

110 IF OSO33510 THEH PRINT"üMieR FI K.OHTROLLOSSZEGEKBEN ! ! < " 

120 IF HO0 THEH PR.IHT>PRIHT H" HIBFIT TRLFiLTFiM »">EHO 

O 

o 

130 PR.IHT"WWELLEHOR.ZES KÉSZ. FI PROGRFIM HIBFITLRH. . . " 

140 K.C-818 

150 PR.IHfWUlHDUL FI BEIRRS • " 

O 

o 

160 RESTORE 

170 FÓR 1=0 TO 33>Fi3R. J*0 TO 7 

180 RERD XÍ >POK.E KC-f 1*8+J, OEC<X»> 


O 

, o 

190 HEXT J-RERO S*>HEXT I 

200 PRIHT"WWWBEIRRS KÉSZ- " 

210 PP.IHT"»WlHünRS- " 


O 

o 

220 PR I HT " IW SVS " K.C " II , OSZLOP, S'JR , ^ SZÖVEG ' 

t ,INVERZ J" 

O 
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TIPPEK - TRÜKKÖK 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1000 DRIft 

1001 DRTR 

1002 OHTR 

1003 ORTR 

1004 ORTR 

1005 ORTR 

1006 ORTR 

1007 ORTR 
1000 ORTR 

1009 ORTR 

1010 ORTR 

1011 ORTR 

1012 ORTR 

1013 ORTR 

1014 ORTR 

1015 ORTR 

1016 ORTR 

1017 ORTR 

1018 ORTR 

1019 ORTR 

1020 ORTR 

1021 ORTR 

1022 ORTR 

1023 ORTR 

1024 ORTR 

1025 ORTR 

1026 ORTR 

1027 ORTR 

1028 ORTR 

1029 ORTR 

1030 ORTR 

1031 ORTR 

1032 ORTR 

1033 ORTR 


REROV. 



20,eF,C7/ 
80^09/86/ 
18,90/03/ 
20/91/94/ 
85/02/98/ 
C3/8R/6R/ 
68/85/23/ 
00/85/06/ 
O6/0R/0R/ 
06/60/£4/ 
O4,E9/01/ 
05 / 20 / RF / 
R6/O0/E0/ 
86/O0/E6/ 
E0/18/90/ 
84,02,00/ 
00/85/08/ 
29/0F/R2/ 
18/80,36/ 
68/GR/00/ 
6R/6R/6R/ 
48, 18/80/ 
08/68/GR/ 
GB/02/R5/ 
00/80/R6/ 
C2/R0/00/ 
R9/O4/20/ 
65/80,85/ 
85/80/90/ 
.>4,R9,08/ 
80/08/02/ 
FF, 91,80/ 
E0/04/O0/ 
03/00/00/ 


20/08/ 
00/20/ 
4G/IG, 
20/48/ 
48/8R/ 
66/03/ 
R0/00/ 
20/80/ 
26/06/ 
02,85/ 
85/04, 
03/E6/ 
27/30, 
01/E6/ 
01/60/ 
89/60/ 
85,09, 
04/4R/ 
04/65/ 
F0,68/ 
R2,04/ 
36/04/ 
00,F 0/ 
09,99/ 
01/H4, 
R9/GC/ 
10/04, 
8C / R9 . 
00,R9/ 
80/23/ 
24/03/ 
08/91/ 
EG/60, 
00/00/ 


9O,E0,27 
O8/9O/E0 
99/86/01 
9»:/F0/F3 
48 / 20 / R5 
68/85/22 
84/07/R9 
04/0H/26 
85/04/R5 
05,38/R5 
80/02,06 
00/E6/00 
0F,R2/00 
01/R6/D1 
R4,07/G8 
R0/08/R9 
81/04,48 
90/0R/48 
09/85,09 
29/F0,6R 
4R,90/0R 
65,08,85 
R5/08,99 
03/02/88 
00,20,91 
20/10/04 
18/R9/40 
01 / 65/80 
00 / 20/10 
04,R2/00 
10/02/49 
8G/08/E8 
00/30/00 
00 / 00 / 00 


442 

484 

303 

420 

3GE 

3FF 

'384 

25F 

3E4 

460 

48F 

513 

35E 

638 

42G 

400 

488 

20R 

3RB 

400 

208 

319 

5E0 

441 

529 

318 

287 

39E 

368 

20B 

2E9 

581 

3FG 

003 


O 


O 

O 

O 

O 

O 

O 

o 

o 

o 



1 

2 R01"!* W 

^ 3 C- UJSRI3 m 

CJ 4 PEM"* 2X2 -ES nOOOSlTRS C-f^U64 • 

5 RÉM"4 « 

6 RÉM”!* PROORHM' KHMftN TIBOR 19BB. • 

O 7 P.EM"!* W 

^ 8 REM”i«4l«W!*!«l«!«««<««!*!*i«l»i««l*!*««l*««««««j*«i«!* 

9 • 

_ 140 INPUT”* KEZDŐCÍM” ;K.C 
O 193 FÓR I-l TO Z'REftO R, B • X*-HEX»<B-*-K.C> 

194 POKE K.C+R,OEC<P.IOHT»<X»/2>> 

195 POKE KC4fl+l/OEC<;LEFT»<X»/2)> 

19t, NEXT I 

^ 2000 ORTR 90,125,146,260/171.260/206 
2001 ORTR 235,211,235,231/235,236,241 


REROV. 


1 RÉM O 

2 RÉM ♦ C- UJSRG 1t3 4 

O 3 RÉM * JRVITOTT KERES 4 

^ 4 RÉM 4 PROGRRM* STEF 4 

5 RÉM 4444444444MÍ4444444444444444444 ^ 

^ e RÉM 

O 10 FÓR 1-1536 TO 1549 ■ RERDR4 

20 POKE I/OeC<fi») • NEXT I Q 

30 ORTR R5.01,69,38,80,ll.FF 
O 40 ORTR R5,C6/C9,3C/O0,F3/60 
50 SVSDEC<"FFF9"> 


O REROV. 




MOF4ITOR 




Kereső C16 

A program a 87/&-9. számban megjelent program javított, ro- 
videbb és intelligensebb változata, mert a kereső funkcióból 
bPACE billentyűvel ki lehet lépni. A BASIC betöltő a programot 
Hexa eOO-tól teszi el, így az resetbiztos és nem zavarja a basic 
programokat, sőt a játékok többségét sem. Betöltés után RUN. 
Erre a program kitórli magáti A keresés indítása: SYS 1536. 

Ha valaki véletlenül mentés előtt elindította a programot, 
monitorból S” KERESŐ", 1, 0600, 060E utasítással mentheti ki. 

STEF 
(Lengyel István) 


PC SR RC XR VR SP 
; FFFF 00 FF FF FF F9 


• 

2000 

R5 

01 

LOR 

401 

• 

2002 

69 

38 

ROC 

#438 

• 

2004 

80 

11 

FF STR 

4FF11 

■ 

2007 

R5 

C6 

LOR 

4C6 

• 

2009 

C9 

3C 

CMP 

#43C 

■ 

200B 

00 

F.3 

BRE 

42000 

• 

2000 

60 


RTS 


• 

200E 

57 




• 

200F 

57 


??? 


• 

2010 

57 


777 


• 

2011 

57 


7-7'? 


• 

2012 

57 


77? 


• 

2013 

57 


777 


• 

2014 

57 


777 
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HIRDETÉS 




2 q áruház 

♦ 1136 Budapest XIII., Balzac u. 35. Tel.: 402-954 * 


Fényceruza: 


Az 1.3 GEOS által felhasználható, nyomógonibos fényceruza se¬ 
gítségével könnyebben dolgozhatunk, készíthetünk szabadkézi 
vagy műszaki rajzokat. 

Egyesületi tagoknak 20% kedvezmény. ^ ^ 2500 Ft 


TV-COMPUTER 

átkapcsoló: 

A kapcsoló segítségével megszüntethetjük a kábelek állandó ki-be 
húzkodásával járó kellemetlenségeket. Az öntapadó matricával 
könnyen, bárhova felerősíthető kapcsoló egy mozdulattal átvált¬ 
ható a megfelelő üzemmódba. A kapcsoló akár videóhoz is fel¬ 
használható. m a A A 

Ara: 490 Ft 


C—64 Euroscart kábel: 

Az Euroscart bemenettel rendelkező videó vagy televízió és a 
Commodore számitógép összekötésére alkalmas. Az Euroscart 
bemenet segítségével tökéletesebb, szebb képet élvezhetünk. 

Ára: 675 Ft 


CCX interface: 

A CCX interface kábel alkalmassá teszi a C—64-est arra, hogy 
Centronics bemenetű nyomtatókat (Citizen 1200, STAR, EPSON) 
kapcsolhassunk a soros vonalra. Segítségével kihasználhatjuk a 
nagyobb teljesítményű nyomtatók előnyeit. 

Ára: 9009 Ft 

Basic SYNTAXER 
C—64 lemez: 

A lemezen található programcsomag a Basic programozás leg¬ 
kellemetlenebb hibáit vizsgálja. Hiba esetén a téves sort azonnal 
módosíthatjuk. 

Ára: 1985 Ft 


: 54 






PROGRAM 


0^ 

Boríték címzése nyomtatón 

Sokféle adatbázis kezelő program forog közkézen. Hogy most 
mégis egy ilyen programmal foglalkozunk, annak több oka van. 
Ezek közül egyik, hogy a profi adatkezelők sokoldalúak ugyan, 
de mégsem képesek minden igényt kielégíteni, különösen a 
perifériák sokféleségét, azok minden képességét nem tudják 
kihasználni. A programunk elve nagyon egyszerű, tipikusan 
hobby megoldást használ, melyet még a kezd^ is könnyen fel¬ 
használhatnak arra, hogy saját igényeiknek és lehetőségeiknek 
megfelelően átalakítsák. 

A program lemezen, soros állományban levelezéshez hasz¬ 
nálható címtárat kezel. Új c(m beírásakor ezt az állomány végére 
csatolja (APPEND). Levél írásakor a címzett adatait az állo¬ 
mányból kikeresi és a nyomtatóba helyezett borítékot meg¬ 
címezi. Külön szolgáltatás a címjegyzék listázása. 

Látható, hogy a programból elhagytunk sok tipikus adatkezelő 
tevékenységet. Az adatmódosítást helyettesíti a keresési algo¬ 
ritmus szerkezete, ugyanis a többszörösen szereplő elmek ese¬ 
tén a keresés folytatható. A torlésre a viszonylag kevés adatot 
tartalmazó házi címjegyzékben nincs feltétlenül szükség. 

A program első sorában a lemezes állomány nevét adjuk meg. 
Ezt az állományt a programtól függetlenül kell létrehozni: 

OPEN 8,8,8,'CIMTAR.S.W' : CLOSE 8 

A konstansok beállítása, mely a MASTER előtt található, az 
egyéni elképzeléseknek és a meglevő nyomtatónak megfelelően 
mMosltható. A 0. indexű címmező az az emlékeztető, mellyel 
az állományban keressük a címzettet. A többi kerül a a borítékra. 
A címmezők közül néhányat (2., 5. és 7.) dupla szélességű 
jelekkel írunk a borítékra, ha 19-nél kevesebb jelből állnak. 
A címmezők tartalmi változtatása esetén a 2330 számú sort kell 
esetleg emiatt átírni. A program a különleges postai kezelésre 
vonatkozó feliratokat csak külön kívánságra írja a borítékra. 
A feladó adatainak végén az országot akkor nyomtatjuk, ha a 
címzett utolsó adata, az irányltószám x (kisbetűvel I). Erre a cím 
adatainak beírásakor kell ügyelni. A program alapvető műkő 
dését nem befolyásolja, ha a katalógust készítő modult (3000— 
3230) és a 1110 számú sort elhagyjuk. 

Dr. Hack Frigyes 


100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
120 
130 


rcm »*«**«**«**««««**«*«**«*tt(*«« 

rém * ujsag aorszem: 16^ 

rém » boríték címező 

rém » dr.heck f,rlgyes 

rém «**«*»*****(<*««»*»*««««*««**« 

rém * cbm baalc v3.5 

rém » c«16 - plus/4 

rém » diszk - 1551 

rém * sp-180 ve 

rém t**t$ttt*tt**tt***»**tt****tt* 

ct»»'clmt»r, a, * 

rém nyomtató vezérlők 


O 

O 

O 

O 



140 

eacS”chr$(27> 

r«m 

esc 



150 

slS 

=eaS-f"3"-kchr$<23>: 


8 Ipl 

O 

o 

160 

s2S 

•esS+'3"+chrS(36>: 

r«m 

6 Ipl 



170 

IfS 

•chrS<13) : 

r«ffl 

soremelés 


o 

180 

ff$ 

-chrS(12> : 


lapemeles 

O 


190 

tb$ 

■chrS(16) : 

rém 

tabulator 



200 

nb$ 

-chrS(145) : 

rttm 

grafikus 


c 

210 

nlS 

-chrS(120) : 


nlq 

O 


220 

nl$ 

“escSknlS+'l" 





230 

IS 

»esS+"4" 

r«m 

Itallc 


o 

240 

lOS 

-esS+'B’ 



O 


250 

fS 

«esS-k"e" 

rém 

fett 



260 

fOS 

=esS-t-" f " 




o 

270 

vS 

=eaS-t-*g" 

rém 

kettos- 



280 

vOS 

=esS-k"h" 

rém 

leutes 



290 

aS 

•esS-f'-l" 

rém 

alahuzas 

o 

c 

300 

aOS 

“esS-k'-O" 





310 

rS 

-chr$(18> : 

rém 

revers 



320 

rOS 

-chrSí146) 



o 


330 

dS 

"esS+'wl" 

rém 

dupla¬ 



340 

dOS 

“esS-k'wO" 

rém 

szel esseg 



C 

O 

c 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

3000 

3010 

3020 

3030 

3040 


rém a feladó adatai: 
faS<l)=nl»+ •Feladó:' 
fs*<2)-fS + 
faS(3>°aS * 
faS{4)=i$ * 
fa»(5)»f» + 


*Dr. Hack Frigyes" 
"Budapest XIV" 

'Szikszó park 12. ' 
"114 2" 
faS<6)«fS+dS-t-"HUNGARY"+d0S 
rém mezonevek / betűtípusok 
mS(0)-"K u 1 c s" :fm$<0)»"" 
mS<1)-"Tltulus " :fm»(l)»lS 
mS<2>»'N é V " :fmS(2>«v$ 

mS(3)»"Kulf.clm ' :fmS(3)«lS 
mS<4>»"- - ? - :fmS(4)=lS 
m5<5>«'V áros" :fmS<5)-aS 
mS(6>-'Belf.cím " :fmS(6>-lS 
mS(7>«"0rszag " : fm$< 7)-l$-rvS 
mS<8)-"Ir.az./xl" :fm$(8)«vS 
rém különleges Jelzeaek 
eS<1)»" Expressz ' 
eS(2)-' Ajánlott ' 
eS(3)-" AIR MAIL " 
ram *«••* mester t*********** 
scnclr : prlnt chrS(I42> 

char.lO, 3, "U-1 

char.lO, 4, " | menü I" 

char, 10, 5. "J K 

Cher, 12, 7,'X>Sorltek készítés 

char, 12, 9, "Scdstalogus 

char, 12, 11, "üufll dm felvetel 

char, 12, 13, ‘3e3Kltl 

gatkey qt 

If qS>"b* then gosub 2000 
If qS>'k' then gosub 3000 
If qS~'u' then gosub 4000 
If qt«'e' then clr : end 
goto 1000 

rom ****■¥ boritok ******■**■**■*■*■ 
prlnt chrS(14>'g 1Borlt«k;E!?' 

gosub 5000 : rém keresas 
If kS«"»* then return 
prlnt 'SiaüExtrAk jUEI' 
fór e-1 to 3 

: prlnt " 3" eS(o> " «- <l/n)"; 

getkey qS :e(e>><qS>*l') 

: prlnt ‘lUUUia- qS " 
next a 

prlnt •-' 

prlnt ' Borítékot befűznit' 

prlnt ' Nyomtatót bekapcsolni I' 
prlnt " CRETURNl-t lenyomni I' 

prlnt "-^-*: 

gatkey qS:lf qSOlfS then 2150 

open 10,4,10 :prlntM10 

ópen 4,4,7. 

rém feladó 

fór J«1 to 5 

: prlntS4,faS(J> 

: prlntSlO 
next J 

If cS<8>-'x* then prlnté4,fat(6); 

prlntS4, 

ram extrák 

fór eml to 3 

: gosub 6000 

next e 

pr lnte4,1fS 

ram címzés 

fór Jml to 8 

; If len<ct(J>)>18 then 2340 
: If J"2 or J“5 or J“7 then prlntS4,dS; 
: prlnt#4,tb$'2S" f» fmt<J) c»<J) 

: prlntélO 
next J 
prlnte4,ffS 
c1osa 4; c1őse 10 
goto 2010 

ram ♦♦♦♦♦ katalógus ♦♦♦♦♦-kt-f-f-f 
prlnt chrS(14)'9 3<atalógus2*?' 

Input '3 Dátumig*;anS 
open 10,4,10 : prlntSlO 
open 4,4,7 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

3050 

printtt4,nlS dS anS 1fSlfS 

o 


3060 

opan 8,8,8,ct»t*r• 



3070 

i-1 ; ai-O 


o 

3080 

do whila ai'O 

o 


3090 

: lnputa8,cS 



3100 

: prlnttt4. dS fS;i;cS dOS fOS 


o 

3110 

: fór J«1 to 8 

o 


3120 

input«8,cS : ai*at 



3130 

print#4.tbS*25* f«»(J) cS 


0 

3140 

printaiO 

o 


3150 

: naxt J 



3160 

: print#4, * - 


o 

3170 

: if i/6“lnt<i/6) than prlnta4,ffS 

o 


3180 

: i-i + l 



3190 

loop 


o 

32'00 

printa4,ffS 

o 


3210 

cloaa 8 ;cloaa 10 :cloaa 4 



3220 

raturn 


o 

3230 


o 


4000 

ram <<<< adatbavitel >>>> 



4010 

print "a*chrS<14) 


o 

4020 

bbs-* aa. saaaaaaaaaaa* 

o 


4030 

fór J"0 to 8 



4040 

: print uaing bbS; J, inS( J ) ; 


o 

4050 

: c»<J>»’ ■ : input cS<J) 

o 


4060 

: if lan(cS(J>>>35 than 4040 



4070 

naxt J 


o 

4080 

print ’S 3 Randban? (i/n)a" 

o 


4090 

gatkay qS 



4100 

if qSO'i" than 4010 


n 

4110 

opan 9,8,9,ctSt*a’ 

o 


4120 

fór J«0 to 8 



4130 

: prlnta9,cS<J) 



4140 

naxt J 


o 

4150 

cloaa 9 

u 


4160 

raturn 



4170 

j 





a 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


5000 r*n <<<< karamam >>>> 

5010 prlnf » 

5020 input ' 3 K u 1 c a; ;kS 

5030 If lan(kS)>0 than 5020 
5040 if kS«"»* than raturn 
5050 opan 8.8.8.ctS+’r’ 

5060 van«0 

5070 do untii van or st>64 
5080 : input48,cS(0> :printc»<0) 

5090 : van-(kS>cS(0>> 

5100 : fór 1"1 to 8:lnput*8,cS(i):naxt 
5110 1OOP 

5120 if van than 5150 

5130 print * SS Ninca ilyantsa' 

5140 cloaa 8 ; goto 5020 
5150 print'a SA clmzatt;®’ 

5160 fór J«0 to 8 
5170 : print * "cSiJ) 

5180 naxt J 

5190 print *g 3 Biztoa? (i/n) S 
5200 gatkay qS 

5210 if at>64 than cloaa 8 traturn 
5220 if qS>*i* than cloaa 8 :raturn 
5230 van>0 : goto 5070 
5240 : 

6000 raa <<<< axtrak »>> 

6010 if nota(a> than 6060 

6020 prlnta4.nb* ’U-falS 

6030 prlnt#4.*l* rSfS aS(a> rOSfO* "T 

6040 prlnta4.nbS ’J -K*a2S 

6050 printaiO : raturn 

6060 prlnta4,alSlfSlfSa2S : raturn 


1 


O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 
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A NEC-é a világ 

leggyorsabb 

számítógépe 

LEMARADNAK-E AZ AMERIKAIAK 
A SZUPERSZÁMlTÓGÉP- 
GYÁRTÁSBAN? 

A japán NEC konszern bejelentette, 
hogy megkonstruálta a világ jelenleg leg¬ 
gyorsabb szuperszámitógépét. Ezzel az 
eredménnyel a szigetország ismét egy 
nagy lépést tett, hogy a legkritikusabb 
műszaki területeken is behozza vagy túl¬ 
szárnyalja az Egyesült Államokat. A ko¬ 
rábbi leggyorsabb számitógépet az ugyan¬ 
csak japán Fujitsu mondhatta magáénak 
a VP-20tl0 sorozatának tavaly decemberi 
bejelentésekor. 



A NEC most bemutatott SX-3 sorozatá¬ 
nak egyik legfontosabb jellemzője az, hogy 
követi a szóban forgó területen tevékeny¬ 
kedő amerikai gyártó, a Cray Research 
konstrukciós elveit. Ez azt jelenti, hogy 
több processzor egységet kapcsoltak egy¬ 
máshoz. a műveleti sebesség megsokszo¬ 
rozása céljából. Az egymással párhuza 
mosan működő négy processzor lehetővé 
teszi, hogy másodpercenként 22 milliárd 
műveletet végezzenek el. Az amerikai 
felhasználók szerríében az is vonzóvá te¬ 
heti a NEC gépét, hogy az UNIX operációs 
rendszert (alapprogram rendszert) hasz¬ 
nálja, amely egyre inkább ipari szabvány- 
nyá változik az Egyesült Államokban. 

A szuperszámltógépek a hagyományos 
elvű nagyszámítógépeknél is lényegesen 
drágábbak. Míg ez utóbbiak tipikus árai 
többnyire 1-5 millió dollár kozott mozog¬ 
nak. addig a NEC rrKist bejelentett SX-3 
gépe több mint 24 millió dollárba fog ke¬ 


rülni. A szuperszámítógépek elsősorban 
abban különböznek a hagyományos beren¬ 
dezésektől. hogy képesek speciális mate¬ 
matikai műveletek elvégzésére. Jellemző, 
hogy nem egyszerű mennyiségekkel, ha¬ 
nem úgynevezett vektorokkal, illetve mát¬ 
rixokkal dolgoznak. A szóban forgó adott¬ 
ságaik alapján elsősorban műszaki-tudo¬ 
mányos számításokra, illetve a különösen 
számításigényes mérnöki—tervezői fela¬ 
datokra használják. A legtipikusabb alkal¬ 
mazási területek között szokták említeni 
a részecskekutatást a repülőgép- és nuk- 
leárisfegyver-tervezést az időjárás-előre¬ 
jelzést További fontos felhasználási lehe¬ 
tőség kínálkozik a vegyi elemzésben, a 
gyógyszergyártásban, a katonai hadmű¬ 
veletek tervezésében és lebonyolításuk 
szimulálásában, valamint a rejtjelkulcsok 
megfejtésében. 

A NEC bejelentésével kapcsolatban kü¬ 
lön felhívjuk a figyelmet arra a körülmény¬ 
re. amely megbéklyózza az amerikai konst¬ 
ruktőrök munkáját. Arról van szó. hogy az 
ilyen, rendkívül modem gépekhez külön¬ 
leges szempontok szerint konstruált fél¬ 
vezető alkatrészekre van szükség. A japán 
szuperszámltógép-gyártókat ezen a terü¬ 
leten elsősorban az segíti, hogy egysze- 
mélyben többnyire jelentős félvezetőgyár¬ 
tási és -fejlesztési kapacitásokat is saját¬ 
juknak tudhatnak. Így lehetőségük nyílik 
arra. hogy a legújabb műszaki eredménye¬ 
ket már akkor elérjék, amikor amerikai 
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versenytársaik még a kritikus alkatrészek 
megjelenésére várnak. Ebben a helyzetben 
az Egyesült Államok említett gyártója több¬ 
nyire csak abban bízhat, hogy még tart az 
az előny, amelyet a szoftver fejlesztésében 
korábban elért. 

A NEC közleményétől látszólag teljesen 
független az az amerikai bejelentés, amely 
szerint az USA egyik szuperszámítógép- 
gyártója feladja a további küzdelmet és ki¬ 
vonul a szóban forgó területről. Az ETA 
Systems nevű cégről van szó. amelynek a 
legfőbb részvényese, a Control Data mint¬ 
egy 800 millió dollár veszteséget könyvelt 
el az utóbbi négy év során. Az általa irányí¬ 
tott ETA tavalyi veszteségei elérték a 
100 millió dollárt, az 1963-as megalapítása 
óta számított összesített hiánya azonban 
ennél lényegesen nagyobb. 

A jelenlegi helyzetben fennáll az a ve¬ 
szély, hogy a csúcstechnikán belül is 
csúcsszintet képviselő szuperszámítógép¬ 
gyártás ugyanúgy japán ellenőrzés alá ke¬ 
rül, mint korábban a közfogyasztási elekt¬ 
ronikai termékek, illetve a félvezető-alkat¬ 
részek többségének előállítása. Erről azon¬ 
ban a Control Data elnöke azt mondta, 
hogy ez már nem az ő problémája, hanem 
az Egyesült Államoké. A szóban forgó 
műszaki terület feladásának ugyanis nem 
az az igazi tétje, hogy elvész egy bizonyos 
piaci részesedés, hanem az. hogy mi lesz 
az amerikai versenyképességgel a XXI. 
században. 

(Reuter) 

Az IBM illeszthetővé 
teszi nagygépeit 
a japán 

versenytársaikéihoz 

„Az International Business Machines 
(IBM) még sohasem ment ilyen messzire 
a más számítógépgyártókkal való béké' 
együttélés szándékának kinyilvánítása 
bán" — így kommentálta az amerikai 
óriáscég új döntését a The Wall Street 
Journal című napilap. Az IBM bejelentette, 
hogy japán alvállalata júniusban megkezdi 
egy olyan illesztő egység (szaknyelven 
emulátor) árusítását, amelynek segítségé¬ 
vel az IBM központi számítógépem (main 
frame) futtathatók lesznek majd a Hitachi 
és a Fujitsu programjai. 

Jóllehet az óriáscég nyereségének 10 
százaléka származott a szigetországi el¬ 
adásokból 1987-ben — azaz a legnagyobb 
hányad az USA-n belüli forgalmat leszá¬ 
mítva —. van mit visszaszereznie ezen a 
piacon. Szakmai elemzők szerint 15 évvel 
ezelőtt az IBM gyakorlatilag a kezében tar¬ 
totta a japán kozpontigép-eladásokat. ké¬ 
sőbb azonban elhanyagolta az árpolitikát, 
így 19e7-ben már 28 százalékot mondha¬ 
tott magáénak ezen a területen, (össze¬ 
hasonlításképpen: a világ nagyszámító¬ 
gép-piacán az IBM részesedése 70 száza¬ 
lék körül mozog.) A szigetországi riválisok 
— a Hitachi és a Fujitsu — ezzel szemben 


50 százalékos hányadot szereztek a japán 
kozpontigép-eladásokból. 

Ezek a cégek nagy lendülettel fogtak a 
szoftverek kidolgozásához, ám a progra¬ 
mok rövidesen nem csak saját modelljei¬ 
ken, hanem az IBM-gépeken is futtathatók 
lesznek. Az amerikai vállalat már eddig is 
kínált speciálisan átalakított szoftvereket, 
a Helyeket a Hitachi- és Fujitsu-progra- 
11 lukhoz — rx) meg a Prism márkanevű, 
15,7 millió jenbe kerülő átalakító egység¬ 
hez — kapcsolva, lehetővé tették azok hasz¬ 
nálatát az IBM számítógépein. Ez a meg¬ 
oldás azonban számottevően lelassította 
a műveleti sebességet. Az új illesztő be¬ 
rendezésben az említett „fordító-szoftver" 
már beégetett áramköri egységként (firm- 
ware) fog szerepelni, és szükségtelenné 
válik egyéb kiegészítő, így a Pris is. 

Iparági szakértők rámutatnak: az ame¬ 
rikai óriáscég látványos döntése nem je¬ 
lenti azt, hogy már országok számítógép¬ 
gyártóinak termékeihez is hamarosan meg¬ 
születik az IBM-átalakltó. Jóllehet az IBM 
már többször is szabadalomvédelmi vi¬ 
tába keveredett az említett japán vállala¬ 
tokkal, a 60-as évekre visszanyúló licenc- 
átadási egyezmények következtében a fe¬ 
lek operációs rendszerei rendkívül hason¬ 
lóvá váltak egymáshoz. Ez azt jelenti, hogy 
lényegesen könnyebb volt megalkotni az 
IBM-nek a japán gépekhez való emulátort, 
mint az amerikai tervektől alaposan eltérő 
modellekhez. 

Azt IS megemlítik, hogy ezzel a megol¬ 
dással sem hárul el minden akadály a szi¬ 
getországi forgalomnövelés útjából. A ja¬ 
pán vásárlók nem szívesen térnek át 
ugyanis új szállítóra a megismert helyett, 
főként mivel a szigetországi gyártók az 
IBM-nél jóval nagyobb karbantartó mérnö¬ 
ki állományt foglalkoztatnak, és ezzel job 
bán tudják segíteni a rendszerek üzem¬ 
képességét. (AP—DJ) 


A Dataquest piackutató cég felmérése 
szerint Ausztriában tavaly 37 százalékkal 
több személyi számítógépet adtak el. mint 
1987-ben. Az erőteljes növekedés elsősor¬ 
ban a nagyobb felhasználók beszerzései¬ 
nek élénküléséből származott. Ez a cso¬ 
port a teljes személyiszámltógép-forga- 
lomból X százalékkal részesedett További 
számottevő felhasználói kategóriának mi¬ 
nősítik a kisvállalkozókat, illetve az okta¬ 
tási intézményeket. Az olcsó otthoni szá¬ 
mítógépek részaránya kismértékben visz- 
szaszorult Ez az irányzat annak ellenére is 
megfigyelhető volt hogy az oktatásra szánt 
olcsóbb gépeket is alkalmassá tették az 
MS-DOS kompatibilis üzemmódban való 
felhasználásra. 


A legnagyobb piaci részesedést az IBM 
érte el 27,4 százalékkal. A nagyvállalat 
a tavalyi év során 80 százalékkal növelte 
eladásait További népszerű márkák Auszt¬ 
riában az Atari, az Olivetti és az Apple. 
Számottevő mennyiségben adtak el a tá¬ 
vol-keleti térségből származó IBM kompa¬ 
tibilis személyi számítógépeket. 

A Dataquest egyébként szóvá tette, hogy 
a számítógépes szektorban az innovációs 
készséget erőteljesen fékezi a közületi 
szektor nagyarányú gazdasági jelenléte. 
Ugyancsak mérsékli az ónálló kezdemé¬ 
nyezést az utóbbi időben végrehajtott 
csökkentés ellenére is túlzottnak minősí¬ 
tett adóteher. A számítógépek gyors elter¬ 
jedésének további akadályát jelenti a szak- 
szervezetek részéről megnyilvánuló ha¬ 
gyományos ellenkezés, amely a munka¬ 
helyeket félti az ÚJ technika elterjedésétől. 
(APA) 

Terjeszkedik 
Európában 
a Commodore 

Az amerikai székhelyű Commodore cég 
azt tervezi, hogy tovább bővíti európai je¬ 
lenlétét. A vállalat arra számit, hogy a Kö¬ 
zös Piac 1992-re tervezett teljes integrá¬ 
ciója után eladásai meghaladhatják az 
1 milliárd dolláros küszöbértéket. A leg¬ 
utóbbi pénzügyi évben mintegy 6(X) millió 
dolláros forgalmat bonyolított le a cég 
a kontinensen. 

Az igazgatóság azt tervezi, hogy tovább 
folytatja azt a sorozatot, amelyet 1982-ben 
a C—64-es típussal indított útjára. A leg¬ 
újabb modellek elsősorban a műveleti se¬ 
besség, illetve a színes megjelenítési tech¬ 
nika területen múlják felül a korábbiakat, 
eközben azonban megfelelnek majd annak 
a követelménynek, hogy a kompatibilitás 
megmaradjon ez utóbbiakkal. 

Az európai forgalom bővítéséhez új üze¬ 
met szándékoznak építeni az NSZK-ban. 
Korábban Braunschweigben gyártott sze¬ 
mélyi számítógépeket a Commodore, a 
legutóbbi bejelentés szerint azonban kü¬ 
szöbön áll a döntés egy új üzem felépíté¬ 
séről. Ezzel párhuzamosan bővítik a fran¬ 
ciaországi, az olaszországi és a spanyol 
országi szervezetüket is. (AP—DJ) 



Erőteljes forgalom- 
növekedés az osztrák 
személyiszámítógép¬ 
piacon 
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DEC-HEX-BIN 

A mellékelt program, a DEC-HEX-BIN akkor keletkezett, ami¬ 
kor gépi kódban kezdtem el programozni. Mint kezdő, igen meg- 
terhelőnek éreztem a különböző számrendszerek közti állandó 
átszámltgatást. Éppen ezért elhatároztam, hogy az első „hasz¬ 
nos" gépi kódú programom ilyen segédprogram lesz. 

A program a decimális, hexadecimális és a kettes számrend¬ 
szerek közti átszámításokat végzi él a másikakba. 

Az indításhoz használjuk az alábbi utasítást: 

LOAD "DEC-HEX-BIN",8,1 
NEW:SYS 52000 

Mivei a program az interruptban fut, azt egyszer inicializálni 
kell a SYS utasítással. Ezután minden interruptnál lekérdezzük 
az <F1>, <F3> és az <F5> billentyűket. Ezeknek a billentyűknek 
a megnyomásakor egy ezután a billentyűzeten beadott számot 
a másik két rendszerbe számítjuk át. 


A kezelés igen egyszerű. Meg kell nyomni a funkciós billen¬ 
tyűk egyikét. Hogy melyiket, az attól függ, hogy miről mire 
akarunk számítani. A gombnyomásra eltűnik a kurzor, töröljük 
a fölső képernyői sort, és ott beadhatjuk a megfelelő számot. 
Pozitív egész értékek beadása lehetséges 0 és 65535 között. 
A bevitel korrigálása megtörténhet a <DEL> billentyűvel. A be¬ 
vitelt a <RETURN> gombbal kell lezárni. Ez azonban csak akkor 
lehetséges, ha a pontokkal ábrázolt beviteli mezőt kitöltöttük. 
A bevitel lezárása után a beadott érték mellett a fölső sorban 
megjelenik a szám a másik két számrendszerben. Ezután a 
kurzor arra a helyre kerül, ahol az a funkciós billentyű meg- 
nyorr.ása előtt állt. 

A funkciós gombok hozzárendelése a következő: 

<F1>: Decimális számok átszámítása, ötjegyű decimális ér¬ 
téket kell beadni. A jelölés egy "d". 

<F3>: Hexadecimális számok átszámítása. Négyjegyű hexa¬ 
decimális értéket kell beadni. A jelölés a "$". 

<F5>: Bináris számok (bitminta) átszámítása. Tizenhat jegyes 
bevitel szükséges, a jelölés a "%". 

Könnyű mintapéldát találnunk. Például beadunk egy BASIC 
programot, és épp egy POKE utasításban van a sor. Szeretnénk 
tudni annak a hexadecimális számnak a decimális értékét, ame¬ 
lyiket ismerjük. Nyomjuk meg hát az <F3>-as gombot és adjuk be 
a hexa számjegyeket. A fölső sorban a bevitel befejezése után 
megtaláljuk a számot mindhárom számrendszerben. Most azon¬ 
nal beírhatjuk a program számára szükséges decimális értéket 
a POKE utasítás mögé, mert a kurzor pontosan oda kerül vissza, 
ahol az <F3> gomb megnyomása előtt állt. 

Az indító cím 52000, így a segédprogram számos, a tárolóban 
a 49152-es címtől álló más programmal is együtt tud dolgozni. 
Természetesen a forrásprogramban megváltoztatott kezdőcím 
esetén a programunk a tároló más területeire is asszemblálható, 
azaz szabadon eltolható. A forráskód listát a Magazin e havi 
számához tartozó programszerviz lemezen találjuk. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

C 

O 


1 rém 

2 rém"* C= UJsag Ssz-rfft? * 

3 rém"* DEC - HEX - BIN * 

4 rém"* Program: Kovács Zoltán * 

5 rém ******************************** 

6 : 

7 : 

a print chr$(147)"data beolvasás es ellenőrzés j=52000:ve=53167:p=j 

9 fór b=0 to 7;read a$ 

10 l=asc(mld$(a$,2,1)) 

11 h=a8c(mld$(a$,l,l)) 

12 1=1-48:if 1>9 then 1=1-7 

13 h=h-48:if h>9 then h=h-7 

14 print"^*»»M»*l"p; :p=p4-l 

15 if h>15 or 1>15 then 17 

16 a=h*16-t-l:poke j-tb,a:t=t-»-a:next b:read a:if a=t then 18 

17 print:print"data hiba ... sor:"peek(64)*256-hpeek(63):end 

18 t=0:d=J-f8:if d<ve then 9 

19 print"E*lkesz": end 

20 data 78,a9,30,8d,14,03,a9,cb,0873 

21 data 8d,15,03,58,20,7e,eb,60,0710 

22 data a5,c5,c9,04,d0,0e,a2,80,1079 

23 data 8e,0e,de,20,71,eb,20,89,0893 

24 data cb,4c,69,cb,a5,c5,c9,05,1155 

25 data d0,0e,a2,80,8e,0e,dc,20,0920 

26 data 71,eb,20,47,cc,4c,69,eb,1007 

27 data a5,c5,c9,06,d0,10,a2,80,1083 

28 data 8e,0e,dc,20,71,cb,20,ec,0992 

29 data cc,a2,81,8e,0e,dc,4c,31,0996 

30 data ea,a0,00,a9,20,99,00,04,0752 

31 data C0,c0,28,90,f8,60,a9,0e,1103 

32 data 20,16,e7,a9,80,8d,91,02,0870 

33 data 60.d8,a2,04,8e,00,04,a2,0786 

34 data 3a,8e,01,04,a0,00,a9,2e,0580 

35 data 99,02,04,c8,c0,05,90,f8,0948 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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PROGRAM 


I 36 data a2,40.8e,8a,02,a0,00.8c,0808 

' 37 data 3c,03,oe.3c,03,20.9f.ff.0810 

O 38 data 20.e4.ff.c9.00.f0.f6.c9.1403 O 
39 data 14.f0.19.c9.0d.f0.2a.ac.0953 
^ 40 data 3c.03.c0.06.b0.e7.c9.30.0917 
^41 data 90.e3.c9.3a.b0.df.99.01.1183 
42 data 04.4c.aa.cb.ac.3c.03.c0.0880 
O 43 data 02.90.d2.ce.3c.03.a9.2e.0840 q 

44 data ac.3c.03.99.01.04.4c.ad.0642 

45 data cb.ac.3c.03.c0.06.90.bd.0969 
C 46 data a2.00.8e.0a.02.a2.36.0e.0802 

47 data 40.03.a2.35.8e.41.03.0e.0634 
Q 48 data 42.03.8e.44.03.a2.33.0e.0637 q 

49 data 43.03.a0.00.c8.b9.01.04.0620 

50 data d 9 . 3 f.03.90.0f.d0.07.c0.0849 
051 data 05 . 90 .fi.4c.24.cc.20.71.0851 O 

52 data eb.4c.09.eb.a2.02.86.22.0951 

53 data a2.04.86.23.a9.05.20.b5.0722 q 
^ 54 data b7.a9.01.20.7e.bd.a2.50.0942 

55 data a0.03.20.d4.bb.20.80.cd.0959 
C 56 data 20 .dl.cd.20. 34.ee. 60.d0.1048 O 
57 data a2.24.8e.0a.04.a2.3a.8o.0716 
^ 50 data 0b.04.a0.00.a9.2e.99.0c.0555 ^ 
^ 59 data 04.c8.c0.04.90.f0.4c.68.0972 
60 data cc.3a.3b.3c.3d.3e.3f.40.0631 
^ 61 data a2.40.8e.8a.02.a0.00.8c.0000 Q 

62 data 3c.03.ee.3c.03.20.9f.ff.0810 

63 data 20.e4.ff .c9.00.f0.f6.c9.1403 

c 64 data 14.f0.20.c9.0d.f0.39.ac.0983 O 

65 data 3c.03.c0.05.b0.a7.a0.00.0827 

66 data d9.61.cc.f0.e0.c8.c0.07.1301 Q 
^ 67 data 90.f6.c9.30.90.d7.c9.47. 1270 

68 data b0.d3,ac.3c.03,99.0b.04.0790 

69 data 4c.72.cc.ac.3c.03.c0.02.0023 ^ 

70 data 90.c3.ce.3c.03.a9.2e.ac.0995 

71 data 3c.03.99.0b.04.4c. 75.ee. 0628 q 

72 data ac.3c.03.c0.05.90.ae.a2,0912 

73 data 00.8e.8a.02.20.80.cd.20.0679 

O 74 data 62.ce.a9.50.a0.03.20.a2.0942 O 

75 data bb.a9.01.20.7e.bd.a2.50.0946 

76 data a0.03.20.d4.bb.20.80.cd.0959 q 

77 data 20.34.ce.60.d8.a9.25.8d.0949 
70 data 13.04.a9.3a.8d.l4.04.a0.0575 

ü 79 data 00.a9.2e.99.15.04.c0.c0.0705 O 

80 data 10.90.f8.a2.40.8a.8a.02.0916 

81 data a0.00.8c.3c. 03.ee. 3c.03.0664 ^ 

082 data 20.9f.ff.20.e4.ff.c9.00.1162 ^ 

83 data f0.f6.c9.14.f0.19.c9.0d.1186 
Q 64 data f0.2a.ac.3c.03.c0.11.b0.0902 o 
65 data e7.c9.30.90.e3.c9.32.b0.1276 
86 data df.99. 14.04.4c.0d.cd.ac.0866 
O 87 data 3c.03. c0.02.90.d2.ee. 3c.0877 O 
88 data 03.a9.2e.ac.3c.03.99.14.0626 
^ 89 data 04.4c.10.cd.ac.3c.03.c0.0726 
^ 90 data 11.90.bd.a2.00.8o.8a.02.0794 
91 data 20.00.cd.20.le.cf.20.dl.0875 
O 92 data ed.60.30.31.32.33,34.35.0604 q 

93 data 36.37.38.39.41,42,43.44.0486 

94 data 45,46,2d,34,30,39,36,2d,0440 
^95 data 32,35.36,2d,31,36,2d,31,0399 O 

96 data a2.72.86.22,a2.cd.86.23,0980 
O 97 data a9,05,20,b5,b7,a2,60,a0,0986 q 
96 data 03,20,d4,bb.a2,77.66.22,0883 

99 data a2,cd,66,23.a9,04,20,b5,0922 

100 data b7,a2,70,a0,03,20,d4,bb.l051 O 

101 data a2,7b,66.22,a2,cd,66.23.0989 

102 data a9,03,20,b5,b7,a2,60,a0,1018 ^ 

103 data 03,20,d4.bb,a2,7e,86,22,0090 

104 data a2,cd,86,23,a9,02,20,b5,0920 

^ 105 data b7,a2,90,a0,03,20,d4,bb.1083 O 


^ 106 

data 

107 

data 

O 108 

data 

109 

data 

110 

data 

O 111 

data 

112 

data 

o 113 

data 

°114 

data 

115 

data 

0116 

data 

117 

data 

oll0 

data 

C>119 

data 

120 

data 

0121 

data 

122 

data 

123 

data 

Ol24 

data 

125 

data 

Ol26 

data 

127 

data 

128 

data 

0129 

data 

130 

data 

.131 

data 

^132 

data 

133 

data 

0134 

data 

135 

data 

„136 

data 

^137 

data 

138 

data 

0139 

data 

140 

data 

ol^l 

data 

^142 

data 

143 

data 

0144 

data 

145 

data 

146 

data 

Oi47 

data 

148 

data 

0l49 

data 

150 

data 

151 

data 

0152 

data 

153 

data 

0l54 

data 

'^155 

data 

156 

data 

O 157 

data 

158 

data 

159 

data 

Oi60 

data 

161 

data 

0162 

data 

163 

data 

164 

data 

0165 

data 


60, a9,50,a0,03,20,a2,bb,0889 ^ 
a0,00,8c,3c,03,8c,3d,03,0567 
a0,60,8c,3e,03,a2,24,6e,0801 ^ 
0a,04,a2,3a,8e,0b,04,ad,0564 
3e,03,a0,03,20,67,b8,20,0579 
2b,bc,c9,01,d0,06,ee,3c,0945 O 
03,4c,ef,cd,ac,3c,03,ae,0932 
3d,03,b9,62,cd,9d,0c,04,0725 „ 
ad,3e.03,a0.03,20,50,b0.0697 
20,b4,bf.18.ad.3e.03.69.0770 
10,8d,3e,03,a0,00,6c,3c,0562 Q 
03,ee,3d.03,ac.3d.03,c0,0733 
04,90.be,60,a9,50,a0,03,0644 
20,a2.bb.a9,90.a0.03.20.0889 
67,b8,20,f7,b7,0d.aa.03,1063 
8c,ab,03,a9,25,6d,13,04,0684 q 
a9,3a,8d,14,04,a0,00,0e,0566 
aa,03,b0,05,a9,30,4c,63,0746 
ce,a9,31,99,15,04,c8,c0,0994 O 
08,90,ec,a0,00,0e,ab,03.0736 
b0,05,a9,30.4c,79.ce,a9.0970 ^ 
31,99,ld,04,c8,c0,00.90,0779 
ac,60,a0,00,8c,3c,03,8c,0635 
3d,03,a0,60.8c,3e.03,20,0557 
0c,be,20,53,b8,a2,50,a0,0901 
03.20,d4,bb,ad.3e,03,a0,0632 
03,20,a2,bb,20,b4,bf ,ae.0961 
3e,03,a0,03,20,d4,bb,ad,0832 
3e.03,a0,03.20,50,b6.ac,0696 Q 
3c,03,b9.0c,04,ac.3d,03,0500 
d9,62,cd,f0.0e,ad,3e,03,1012 
a0,03,20,67,b0,ee,3d,03.0704 ^ 
4c, b7, ce. a9,50, a0,03,20.0909 
67,b8,a2.50,a0,03,20.d4,0936 o 
bb,a0,00.8c,3d,03,16,ad,0748 
3e,03,69,10,8d,3e,03,ee,0630 j 
3c,03,ac,3c,03,c0,04,90,0636 ^ 
a3,a9,50,a0,03,20,a2,bb,0956 
20,dd,bd,a0,00,b9,00,01,0788 q 
c9.00.f0.07.99.01.04.c6.0806 
4c,05,cf,a9,04,8d,00,04.0606 
a9,3a,8d,01,04,60.a0.00.0629 O 
a9,00.be,15.04,e0,31,f0.0097 
05,16,2a,4c,30,cf,38,2a,0500 q 
c6,c0.06,90,ed.8d,ab,03.1096 
a0,00,a9,00.be,Id,04,e0,0776 
31.f0,05,18.2a.4c.4a.cf.0717 O 
38,2a,c8.c0,06,90,ed,8d,1020 

aa, 03,a9,70,a0.03,20,a2.0811 
bb, 20, b4, bf, 20,0c, be. ac, 0994 

ab, 03.20.a2,b3.20,30,ba,0813 

20,0c.bc,ac,aa,03,20,a2,0771 o 
b3,20,6a,b6,a2,50,a0,03,0906 ' 

20.d4.bb.20.dd.bd.a0.00.1033 
b9.00,01,c9,00.f0.07,99,0787 ^ 
01,04,c8,4c,60,cf,a9,04,0789 
8d,00,04,a9,3a,8d.01,04,0516 o 
a9,50,a0,03,20,a2,bb,a9.0962 

01,20,7e,bd,a2,50.a0,03,0753 
20.d4,bb,60.ff,00.ff.00.1037 O 


.ready. 



Két apróság C +4-re 

Az alábbi két Kis program különösebb magyarázatot nem 
igényel, futtatáskor kiírják a képernyőre, amit tudni kell róluk. 

Lörentei — Debre 
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60 




















PROGRAM 



O 20 PRIMTCHB'*<147> rs 

30 FORZ-3Í532TO4071 
40 POK.E2,64>NEXT 
^ 41 PRIHT'PRINT >PRINT 

O 50 PRIHrSPC<;7>“(=l PRt3«3RHMiJT FUTTRTVR" O 
60 PRINTSPCC7>"H KEPERMVO FH.SO E« FELSŐ" 

70 PR.IHTSPCí7>“RESZE EOV OiOMBNVOMRSRR“ 

^ 80 PRINTSPC<.7>“ FEL08ERELOOIK. “ _ 

170 OFtTR R2.00,BO.08,0E.H8jeO.00 O 

180 ORTFI 0C<SCt,08,WE.88/8O.00,0C 
190 ÜRTfi CR,O0,£F,BD.08,0F,Htí.eü 
r\ 200 ÜfiTfl 00,0O,9D,08,0F.98,9O,00 ^ 

^ 210 DRTR OO/Ee.£0,E0,O0,EÜ,60,00 L' 

220 FORT«0TO39 REROFt* 

230 POK£8l9+T,OECf.R*> >NEXT 
O 2e0 GETKEVfi* IFR#-" “THEMEl® O 

270 8VS819>i3OTO260 ^ 



O 

O 

O 

O 

O 

O 


10 PPINTCHP** 147>;CHR»<1«> 

20 FORT«0TO35'REfO« PO»f£ei9«T,n NEXT 
» OHTP 169.000.201.193.176,009 
40 ClATR 201.161.176.012,201.064 
Vd OOTft 176.017.096,0^.233.128 
60 ORTR 141,072.003,096,076.233 
70 D«T« 064.141,072,001,096,076 
80 O0TR 233,064,141,072,003.096 
90 OOTO120 

100 «K-«SC<8*>‘POH.E820,8I< 6VS819 
110 n4PCEX(820>'PETURM 

120 PRIMT" ♦ LEÜTÖTT BIULEUVTU KŰOJrtf" 

130 PPINT" KEPEPMVOtrClCXJft HLflKITVH IMHTJiJK" 

140 PPINT" rt t<EPERNVORE* 

170 GETlcEVW* 006110100 

160 PRINTCMP»<147>'PRINT 

170 PRINT" KHRHKTER ■ ”8* PRIHT 

180 PPINT" KORftCTEPKOO- “HF PPINT 

190 PPINT" tfEPEPNVOF.OO • “« 'PPINT 

200 liOTOlTO 


REHOV. 


Object savé 

Gondot okoz a gépi kódú programok kimentése? Nem akarjuk 
a BASIC kezdet-, végcimeket összevissza POKE-olni? Írjunk 
gépi kódú programot a feladat megoldására I Igen ám, de hol 
helyezzük el? Az ilyen program mindig pont ott van. ahol a ki¬ 
mentendő tárgyprogramunknak kellene lenni. Mindig „relo- 
kálni”, szintén némi kényelmetlenséggel jár. Egy kb. 60 byte-nyi 
program elhelyezése BASIC sorban mindig megoldja az át- 
helyezhetőség kérdését is. És még a felhívási dm kiszámolá¬ 
sával sem kell bajlódni, ha így építjük be a programunkba; 
SYS(PEEK(43)-f256XPEEK(44)-|-6),"NÉV".készulékszám.kezdó- 
dm.végdm+1. 

(Előfordulhat ugyanis, hogy a gépi kódot generáló progra¬ 
munkat nem a normál BASIC területre — 2049-től kezdődően —, 
hanem „feljebb tolva" kell betoltenunk.) 


A rutin tartalmaz egy 0-val való töltést. Ezt nem tehetjük a 
RÉM sorba, mert mint az köztudott, a 0 byte a BASIC sor végét 
jelöli. Egyetlen sor módosítása után igen furcsán festene prog¬ 
ramunk. s az már másodlagos, hogy használhatatlan is lenne. 
Ezért ezt a műveletet egy nulláslapi cím (2-es) tartalmának be¬ 
töltésével (Jótoltuk, melynek értéke a legtöbb esetben 0. (Leg¬ 
több esetben; itt azt jelenti, hogy egy más programmal szándé¬ 
kosan nem Irtunk bele O-tól eltérő szárrxjt.) 

Akinek ez a néhány mondat kínaiul van, annak csak annyit, 
hogy a rutint csak akkor használhatjuk zavarmentesen, ha a 
PRINT PEEK (2) utasítás 0-t ad eredményül. 

Ezt a kis programot be is építhetjük a C— Újság hasábjain 
gyakorta megjelenő gépi kódot generáló programunkba. (Mert 
ugye a fejrészt már mindenki külön kimentette, aki saját kezűleg 
pötyögi be a programokat?) Nos. a fejrészünk ezután így néz ki: 

Folytatás a 65 oldalon 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 rém *. 

1 rém ******************************** 

* C= Újság S8z.:1ö6 * 

* SYS2055,'név'.kez.kcim,vcim-Fl* 

* Program: Kovács Zoltán ♦ 


rém 

rém’ 

rém’ 


rém ******************************** 


' ;:J=02055:ve=02118:p=j 


2 

3 

4 

5 

6 : 

7 : 

8 print chr$(147)"data beolvasás es ellenőrzés 

9 fór b=0 to 7:read a$ 

10 l=a8c(mld$(a$,2.1)) 

11 h=asc(mid$(a$.1,1)) 

12 1=1-48:if 1>9 then 1=1-7 

13 h=h-48:if h>9 then h=h-7 

14 print'■^»**íi'S»**r’p; :p=p-Fl 

15 if h>15 or 1>15 then 17 

16 a=h*16-Fl:poke j-Fb,a:t=t-Fa:next b:read a:if a=t then 18 

17 print: print "data hiba ... sor: "peek( 64 )á256-Fpeek( 63) :end 

18 t=0: j=j-F8: if j<ve then 9 

19 print"clllkesz":stop: 8ya(peek(43)-F256ápeek( 44 )-f 6) , "fejrész" .8,2049,3019 

20 data 20.fd,ae.20,57.e2.20.fd.1089 

21 data ae,20.9e.b7,a4,02.20.ba,0931 

22 data ff,20,fd.ae,20.aa,ad,20.1089 

23 data f7.b7,48.98,48,20,fd.ae.1185 

24 data 20,8a,ad.20.f7.b7,48.98.1029 

25 data aa,88.a8.68.85.14,68.85.0938 

28 data 15,a9,14.20,d8,ff,90.03.0880 _ 

27 data 4c,f9,e0.80.20,2a,2a,2a,0803 -- 


O 

, * 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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HARDVER 



Hardver 



SYSTEM BÚS BRIDGE 


k 


2. Enterprise Euroscart monitorkábel 



3. Commodore Multi Fiié Transfer 



6. Enterprise Joy-illesztő 



JÜCi-AüGUSZT. 
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HARDVER 





A NOVOTRADE RT. 
2q Áruházában 
megvásárolhatók 



11. Enterprise DIN monitorkábel 



9. Enterprise Mouse 


Örömmel látjuk a 


i 

m 

■ 

i 



2c 

áruházban 


1136 Budapest XM., Balzac u. 35. Tel. 402-954 
Nyitva: héttőtől péntekig 9-tél 18 éráig 



















































APRÓCSKÁK 


Cr 


EGYESÜLETI TAGOK 
FÓRUMA 

C 16, PIU8/4 

48K SPECTRUM, KEMP- 
STON interfész, fényceruza, 
sok program és irodalom el¬ 
adó vagy 1541-es floppyra 
cserélhető, értékegyeztetés¬ 
sel. 

Illyés István. 2119 Pécel, Bla- 
ha Lujza u. 12. 

PLUS4 + 1551 floppy + Joy¬ 
stick -t- 5 lemez -l- 150 prog¬ 
ram + irodalom reklámáron, 
sürgősen eladó. 

Németh Géza, 5430 Tisza- 
foldvár. Kinizsi krt 11/A. 

PHJS4-hez és C64-hez ked 
vező áron kínáljuk az alábbi 
kiegészítőket postai szállí¬ 
tással: FÉNYCERUZA 1300 

Ft, JOYSTICK 675 Ft 

Computeam GM. 7400 Ka¬ 
posvár, Berzsenyi u. 32. 

C16 és PLUS4 játékprogra¬ 
mokat keresek 1 Címlistát és 
ármegjelölést kérek 1 

Zsollei Attila. 8440 Herend, 
Rákóczi u. 5. 

C 64 * 

Programcserei PLUS4 prog¬ 
ramokat cserélek vagy ve¬ 
szek. Csak felhasználói prog¬ 
ramok érdekelnek! 

Koleszár Zoltán. Kontútll/A. 

Eladó új C64 alapgép, 1541 
floppy, 180 darab játékprog¬ 
ram. Érdeklődni: 168-lré te- 
lefonon, Fock Lajosnál. Irány¬ 
ár: 40000 Ft 

C16 - 1 - magnó és PLUS4 + 
magnó eladó. 

Kulcsár György. 2060 Bicske, 
Somogyi B. u. 20/A. 

C64 programokat nagy vá¬ 
lasztékból eladok, valamint 
igényes játék- és felhaszná- 
lói prograrT>okat cserélek. 

TIGGER SOFTWARE. 3635 
Dubicsány, Rákóczi u. 3. 

Vegyes 

A következő C64-es progra¬ 
mokat keresem: THE LAST 

NINJA, ANTIRIAD, THE 

THE CURSE OF SHER- 
WOOD. STRIKE FORCE 
COBRA. 

Bertók Antal, 1181 Budapest. 

Mátyás király u. 34. 

C64. Cl28. PLUS4 programo¬ 
kat cserélek lemezen. 

Kővári Attila. 1193 Budapest. 
Derkovits u. 62. Telefon: 47- 
11-77. 

Minden típusú Commodore 
személyi számítógéphez sok 
csatornás vezérlő hardwert, 
szoftwert adok olcsón. 

T. Nagy József, 6000 Kecske¬ 
mét Fehér u. 20. 

C64 programokat cserélek le¬ 
mezen. Listát kérek és kül¬ 
dök. Keresem: SUPERGRA- 
PHIC. SYNTHIMAT progra¬ 
mokat és leírásukat. 

Valuska Tamás, 5500 Gyoma- 
endrőd. Mikszáth u. 50. 


Régi, nem szögletes dobozos, 
C 64 est, javításra szorulót 
vagy javíthatatlant keresek 
megvételre, ajánlatokat levél¬ 
ben, ár és hiba megjelöléssel 
kérem. 

Kerekes Géza, Törökbálint, 
Tulipán u. 6. 2045 


C 64 programokat cserélek 
lemezen. Keresem a DEFEN- 
DÉR OF THE CROWN című 
játékot. Listát kérek és küldök. 
Matalik Krisztián, Gyöngyös- 
pata. Szűcsi út 11.3035 


Keresem a MALIS 4 című 
programot, megvételre vagy 
cserére. Lehetőleg leírással. 
Balló Attila, Budapest. Erzsé¬ 
bet Királyné útja 1/B. 1146 


A VISASTAR 64 program ma¬ 
gyar nyelvű leírását keresem. 
Miklya János, 6726 Szeged. 
Fésű U.2/D. IV. 17. 


Keresem a MERCENARY 
programot kazettán és más 
programokat is cserélek. 
Székely Krisztián, Győr, ifjú 
ság kört. 41.1/4. 


Keresem C64-re a következő 
programokat: IDÖRéGéSZ, 
BEACH HEAD 3. BARBA- 
RIAN 3. ALLIGÁTOR. DUN 
DARACH. EXCALIBUR, 
DARK SCEPTRE. Ezenkívül 
bármilyen ZOMBIE-program 
érdekel. 

Németh András, 2030 Érd. 
Kárpitos u. 41. 


C64-es programokat cserélek 
lemezen. Kizárólag újdonsá¬ 
gok érdekelnek. Cserealap: 
1000 program. Keresem: 
GRAPHIC ADV. CREATOR, 
PROF. ADV. W. SYSTEM, 
GEOPUBLISH. 

Németi Ferenc. 1182 Buda¬ 
pest. Nagyenyed u. 8/A. 
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Fontos, hogy a 0. sorunk legalább 65 byte-ot tartalmazzon a 
RÉM után 111 írjuk be a 20. sortól kezdődöd a fenti 8 DATA sort! 
Futtassuk le a programot! A 0. sorunk elég furán fog kinézni, 
de ezzel ne törődjünk. Fontos, hogy ezt a 0-ás sort ezután már 
ne editáljukI!! 

Töröljük a DATA sorokat, és máris letárolhatjuk az új fejrészt. 
Ha mindezt még kiegészítjük a Databevivő rutinnal (C= Újság 
1988/9), akkor már egy majdnem komfortos rutinunk van a gépi 
kódú programok be- és kivitelére. 

Ja, majd elfelejtettem. Az általam közölt gépi kódú programr>i< 
bevivö része azért olyan kacifántos, mert hexadecimális sz 


mókát kell bevinni. Azokat könnyebb felismerni és megjegyezni. 
Ez pedig megér egy egyszeri fáradságos többletmunkát Nem 
igaz? 

■ Végül a SAVÉ rutin assembler listája: 

A fenti „fejrész” programot a STOP után CONT-tál ki is ment¬ 
hetjük lemezre (vagy kazettára, de akkor a készülékszám » 1), 
ha a byte-ok száma a listán megadottal egyező. Ha nem (azaz 
egy betűvel is több, vagy kevesebb, akkor tessék számolni 
(PEEK(46) és PEEK(46) alapján), és módosítani a címeket I 

Kovács Zoltán 
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Amigások, figyelem! 

AMIGA-szekció alakult a pécsi Commodore Klubban. Amigá¬ 
sok jelentkezését várjuk az ország minden részéről. 

Minden Amigás szerveződéssel szívesen felvesszük a kap¬ 
csolatot, együttműködés céljából. 

Címünk: Pécsi Nevelési Központ. Commodore Klub 
7632 Pécs, Apáczai Csere János kortér. 

Makán y György 


Tisztelt Szerkesztőségi 

Van egy AMIGA 500-as számítógépem, amihez német nyelvű 
leírást é egy AMIGA Basic könyvet mellékeltek. Különböző 
könyvesboltokban érdeklődtem, de magyar nyelvű fordítása 
nincs, szakirodalom e típushoz nem található. 

Örömmel értesültem az áprilisi COMMODORE Ú)ságból. 
hogy egy cikket közöltek róla. 

A magyar ékezetes betűk megjelenítése szánnomra is ér¬ 
dekes. 

Szeretném, ha lapjuk hasábjain e géppel kapcsolatban több 
cikk is megjelenne. 

Tisztelettel: 

Szabó Mihály 
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EGYESÜLET 


kedvezmények 


A kedvezmény 
e megielenéetöl 
szAmltott 
egy h6nepig 
érvényes. 



KEDVEZMÉNYEK a PC-Szalontól a Szu¬ 
perpáholy tagok részére! 

IMPOSSIBLE MISSION 

11.15% 781,-ÁFÁVAL 

iétékprogram 

AMBASSADOR PC szövegszerkesztő 
10% 5950.-ÁFÁVAL 


A NOVOTRADE RT. 2C 
Áruházában az Egyesület 
PLUSZ- és SZUPER PÁHOLYÁNAK 
tagjai kedvezménnyel 
vásárolhatják meg a következő programokat: 



régi ár 

új ár j 

Sulíkomp matek 

149 Ft 

134 Ft '■ 

fizika 1. 

149 Ft 

134 Ft 

történelem 

149 Ft 

134 Ft 

fizika II. 

149 Ft 

134 Ft 1 


régi ár 

'■4 ^ 

uj ár 

Sulikomp matek -i- kazetta 

429 Ft 

386 Ft 

fizika - 1 - kazetta 

429 Ft 

386 Ft 

Fényceruza 

2600 Ft 

2250 Ft 

Fizikomp 

129 Ft 

116 Ft 

Charlie tesztkészítő program kazetta 

Nyuszi olvasni tanít sorozat 1—VI. 

399 Ft 

359 Ft 

régi ár 

új ár 

C-l-4 kazetta 

1165 Ft 

1048,50 Ft 

C—64 kazetta 

1165 Ft 

1048,50 Ft 

Szókincstár C—64 lemez 

1828 Ft 

1645,00 Ft 

Nebuló C—64 oktatólemez 

1165 Ft 

1048,50 Ft 





júliusi 

120 fí»rlntö|i" 

)0íóá sé^tén az 

Xl..ÍlWafoklút7. 

. Szigony u. 1S. ' x , 

ényes: 1989. november 





A Newiine számítástechnikai vállalkozás 10% kedvezményt ad az egyesület 
tagjainak: 

C 16 beépíthető 64 KByte memóriabővltö 


1990,- Ft 

16-64-es átkapcsoló 150,-Ft 

beépítés munkadija 490.- Ft 

ROMTURBO 16 770,- Ft 

együttes megrendelés esetén 3400,- Ft 

árengedménnyel: 3060,- Ft 


Jogosultak: a Plusz- és a Szuperf^holy tagjai 
Igazolás: ennek a tikettnek postai elküldésével 
Cím: Newline, 1014 Budapest. Tárnok u. 26. 1/5. 




A Fotoelektronik-Novotrade-Alfa KFT az alább felsorolt siervizeiben mindenféle szer¬ 
vizszolgáltatás munkadijáböl és az 1989. évben megkötött átalánydíjas szerződés 
összegéből 10% kedvezményt ad az egyesületi tagoknak. 

Hatándő; nincs. illeNe átalánydíjas szerződésrtéi 1960.12.01. 

A kedvezményt nyújtó szervizeink: 

1063 Budapest. Magyar u. 12—14. 

1063 Budapest, Szigony u. 9. 

1191 Budapest. Gábor Á. sétány 3. 

3100 Salgótarján, Arany J. u. 3. 

3526 Miskolc, Fazekas u. 1—3. 

4034 Debrecen, Holló L u. 14 
5600 Békéscsaba, Bartók B. u. 37. 

6726 Szeged, Csongrádi sugárút 76. 

7400 Kaposvár, Füredi u. 24. 

7624 Pécs. Junsics M. u. 17. 

8000 Székesfehérvár. Széchenyi u. 15/a 

9024 Győr, Bem J. tér 1. 

9700 Szombathely, Szalonok u. 31. 

Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 

A kedvezmény többször is igénybe vehető. 


T elefon: 
Telefon: 
Telefon: 
Telefon: 
Telefon; 
Telefon: 
T elefon: 
T elefon: 
Telefon: 
Telefon: 
Telefon: 


173-551 

343-153 

274-763 

32-14-007 

46-17-011 

52-32 863 

66-27-196 

62-13-377 

82-16-307 

72-11-812 

22-12-711 




Telefon: 96-12-802 
Telefon: 94-13-419 
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KOGINFORM 

MŰSZAKI FEJLESZTŐ KISSZÖVETKEZET 

Levélcím: 1325 Újpest 1. Pf.: 159 Telefon: 894-642, 894-756 
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KOGINFORM 


Felhasználói rendszerek 
IBM XT és AT 
számítógépekre 


Vezetésszolgáltatási Információs Rendszer 
Anyag- és Félkésztermék Nyilvántartási 
Rendszer 

Pénzügyi és Főkönyvi Könyvelési Rendszer 
Teljesítményelszámolási Rendszer 
Munkaügyi és Személyzeti Nyilvántartó 
Rendszer 

Bérszámfejtési Rendszer 
Termelésirányítási Rendszer 
Értékesítési, Készáru-nyilvántartási 
és Számlázási Rendszer 


120 000 Ft + ÁFA 


200 000 Ft -F AFA 
250 000 Ft -F ÁFA 
90 000 Ft -FÁFA 


150 000 Ft -FÁFA 
180 000 Ft -F ÁFA 
250 000 Ft -F ÁFA 


150 000 Ft -F AFA 


Szolgáltatásaink 

— A rendszert a Megrendelő igényeihez adaptáljuk — egy szak¬ 
emberünk egy havi munkájával térítésmentesen, azon felül meg¬ 
egyezés szerint. 

— Betanítjuk a rendszert ingyenesen. 

— A rendszer beüzemelését szolgáló próbaüzem időtartama alatt 

— kívánságra — programozói, ill. operátori ügyeletet biztosítunk. 

— A rendszer átadását követő 5 éven keresztül térítésmentesen 
elvégezzük a szabályozórendszer változásainak következtében 
felmerülő módosításokat évi egy ember/hónap munkaigényig. 

— Számítógéppel nem rendelkező ügyfeleink részére program- 
rendszereket az üzemeltetésükhöz szükséges számítógép-kon¬ 
figurációval együtt biztosítjuk: 

— az eszközöket eladjuk, 

— az eszközöket bérbe adjuk, 

— hálózatot telepítünk. 

A legtöbb helyen saját gépeinket kihelyezzük a felhasználóhoz, 
és azokon ún. gépi adatfeldolgozó kapacitásszolgáltatást nyújtunk. 


Áraink munkahelyenként értendők, a megvásárolt darabszámtól függően árenged¬ 
ményt adunk. 


Ez a mennyiségi árengedmény érvényes akkor Is, ha több különböző Rendszerünket 
vásárolják meg. 


Oktatási és egészségügyi Intézmények részére további 50%-os árengedményt adunk. 


KOGINFORM 

MŰSZAKI FEJLESZTŐ KISSZÖVETKEZET 
SZÁMÍTÁSTECHNIKAI ÁGAZAT 

Telefon: 898-279 
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KOGINFORM 

MŰSZAKI FEJLESZTŐ KISSZÖVETKEZET 


<OGINFORM Levélcím: 1325 Újpest 1. Pf.: 159 Telefon: 894-642, 894-756 KOGINFOR^ 


Műszaki Fejlesztő 
Kisszövetkezet 
hardver árajánlata 
1989. 

IBM PC XT 



— 640 Kbyte RAM 

— 360 Kbyte floppy drive 

— 20 Mbyte Winchester 

— monochrom monitor 

— color monitor 


IBM PC AT 

-640 Kbyte RAM 

— 1,2 Mbyte floppy drive 

— 20 Mbyte Winchester 

— monochrom monitor 

— color monitor 


IBM AT/386 

— 2 Mbyte RAM 

— 1,2 Mbyte floppy drive 

— 40 Mbyte Winchester 

— monochrom monitor 

— color monitor 

— EGA monitor 


180 000 Ft + ÁFA 
205 000 Ft +ÁFA 


215 000 Ft + ÁFA 
240 000 Ft + ÁFA 


535 000 Ft -I- ÁFA 
560 000 Ft + ÁFA 
595 000 Ft + ÁFA 


KOGINFORM 


FX 1050 printer 99000 Ft + áfa 

Szünetmentes tápegység (300 W) 62 000 Ft -I- ÁFA 
ArcNet kártya 30 000 Ft -i- ÁFA 

Hálózatkiépités 500 Ft/m -I- ÁFA 

Bármilyen tipusú (pl. C64), 
de működőképes 
számitógépet beszámitunk! 


KOGINFORM 

MŰSZAKI FEJLESZTŐ KISSZÖVETKEZET 

számítástechnikai ágazat 

Telefon: 898-279 
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